bittorrent-benchmarks/analysis/final.analysis/static-dissemination.Rmd

38 lines
667 B
Plaintext

---
title: "static-dissemination.Rmd"
output: html_document
date: "2025-01-10"
---
```{r}
library(tidyverse)
devtools::load_all()
```
```{r}
group_id <- 'g1736505161'
```
```{r}
deluge <- read_all_experiments('./data/deluge')
```
```{r}
lapply(deluge, function(experiment) {
print(glue::glue('Process {experiment$experiment_id}'))
download_time_stats <- tryCatch(compute_download_time_stats(experiment), error = function(e) { print(e); NULL })
if (is.null(download_time_stats)) {
NULL
} else {
compute_compact_summary(download_time_stats)
}
}) |>
drop_nulls() |>
bind_rows() |>
arrange(file_size, network_size, seeders, leechers)
```