---
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)
```