chore: add t1 to edgelist format and clean up comments

Author: aoliveram

data-raw/epigamesDiffNet.R

@@ -5,17 +5,19 @@
 rm(list = ls())
 library(netdiffuseR)
 
-# Load the base epigames dataset (with dynamic attrs)
 load("data/epigames.rda")
 
 attrs <- epigames$attributes # 594 x 6: id, toa, qyes_total, qno_total, mask_prop, med_prop
 edges <- epigames$edgelist # hourly edgelist: sender, receiver, time (0-338), weight
 dyn_long <- epigames$dyn_attrs # long format: id, hour (0-338), mask, med, quarantine
 
 # Collapse hourly edgelist into 15 daily windows via collapse_timeframes()
-WINDOW_SIZE <- 24 # hours per day
+WINDOW_SIZE <- 24
 N_DAYS <- 15
 
+dyn_long$day <- (dyn_long$hour %/% WINDOW_SIZE) + 1
+dyn_long$day <- pmin(dyn_long$day, N_DAYS) # day mapping
+
 daily_edgelist <- collapse_timeframes(
   edgelist    = edges,
   ego         = "sender",
@@ -33,21 +35,18 @@ adjmat <- edgelist_to_adjmat(
   daily_edgelist[, c("sender", "receiver")],
   w             = daily_edgelist$weight,
   t0            = daily_edgelist$time,
+  t1            = daily_edgelist$time,
   keep.isolates = TRUE,
   multiple      = TRUE
 )
 
 # Build vertex.dyn.attrs: one data.frame per day (15 total)
-# Each data.frame: 594 rows, columns: mask, med, quarantine (daily means)
-# Map hourly data to day index (day d = hours [(d-1)*24 .. d*24-1])
-dyn_long$day <- (dyn_long$hour %/% WINDOW_SIZE) + 1 # 1-based day
-dyn_long$day <- pmin(dyn_long$day, N_DAYS) # clamp hour 336-338 to day 15
+# Each data.frame: 594 rows, columns: mask, med, quarantine
 
 vertex_dyn <- lapply(1:N_DAYS, function(d) {
   sub <- dyn_long[dyn_long$day == d, ]
 
   # Aggregate per node: mean within each 24-hour window
-  # (proportion of hours in that day where behavior was active)
   agg <- aggregate(
     cbind(mask, med, quarantine) ~ id,
     data = sub,
@@ -58,7 +57,7 @@ vertex_dyn <- lapply(1:N_DAYS, function(d) {
   agg <- agg[order(agg$id), ]
   rownames(agg) <- NULL
 
-  # Return only the behavior columns (not id — diffnet uses position)
+  # Return only the behavior columns
   agg[, c("mask", "med", "quarantine")]
 })