Bump version to 1.24.2, update NEWS, refine tests

Author: aoliveram

DESCRIPTION

@@ -1,14 +1,14 @@
 Package: netdiffuseR
 Title: Analysis of Diffusion and Contagion Processes on Networks
-Version: 1.24.1
+Version: 1.24.2
 Authors@R: c(
   person("George", "Vega Yon", email="g.vegayon@gmail.com", role=c("aut", "cre"),
     comment=c(ORCID = "0000-0002-3171-0844", what="Rewrite functions with Rcpp, plus new features")
     ),
   person("Thomas", "Valente", email="tvalente@usc.edu", role=c("aut", "cph"),
     comment=c(ORCID="0000-0002-8824-5816", what="R original code")),
   person("Anibal", "Olivera Morales", role = c("aut", "ctb"), 
-    comment=c(ORCID="0009-0000-3736-7939", what="Multi-diffusion version")),
+    comment=c(ORCID="0009-0000-3736-7939", what="Developer from V1.23.0")),
   person("Stephanie", "Dyal", email="stepharp@usc.edu", role=c("ctb"), comment="Package's first version"),
   person("Timothy", "Hayes", email="timothybhayes@gmail.com", role=c("ctb"), comment="Package's first version")
   )

NEWS.md

@@ -1,3 +1,14 @@
+# Changes in netdiffuseR version 1.24.2 (2026-03-09)
+
+* New function `collapse_timeframes()`: aggregates high-resolution or
+  continuous-time longitudinal edgelists into discrete time windows, ready
+  for use with `edgelist_to_adjmat()` or `as_diffnet()`.
+
+* New dataset `epigames` and `epigamesDiffNet`: a simulated epidemic game
+  network with 594 nodes and 15 time periods from the WKU Epi Games study.
+
+* New dataset `wku_diffnet`: a `diffnet` object from the WKU simulation study.
+
 # Changes in netdiffuseR version 1.24.1 (2026-03-03)
 
 * Fixed CRAN example error in `round_to_seq()`: `plot(w, x)` replaced with

tests/testthat/test-collapse_timeframes.R

@@ -1,7 +1,3 @@
-################################################################################
-# Tests for collapse_timeframes()
-################################################################################
-
 context("collapse_timeframes: collapsing longitudinal edgelists")
 
 # Base edgelist used across most tests:
@@ -15,9 +11,7 @@ el <- data.frame(
   weight   = c(1, 1, 1, 1, 1, 1, 1, 1)
 )
 
-################################################################################
-# Block 1: Output structure
-################################################################################
+# Block 1: Output structure -----------------------------------------------
 
 test_that("collapse_timeframes returns a data.frame", {
   result <- collapse_timeframes(el, ego = "sender", alter = "receiver",
@@ -47,9 +41,7 @@ test_that("output has fewer or equal rows than input after collapsing", {
   expect_lte(nrow(result), nrow(el))
 })
 
-################################################################################
-# Block 2: Binning logic (window_size)
-################################################################################
+# Block 2: Binning logic (window_size) ------------------------------------
 
 test_that("window_size=1 does not merge periods", {
   result <- collapse_timeframes(el, ego = "sender", alter = "receiver",
@@ -86,9 +78,7 @@ test_that("aggregated weight is sum of constituent weights", {
   expect_equal(result$weight, 1.0)
 })
 
-################################################################################
-# Block 3: relative_time TRUE / FALSE
-################################################################################
+# Block 3: relative_time TRUE / FALSE -------------------------------------
 
 # Edgelist with a gap: time points 1, 2, 5, 6 (no 3 or 4)
 el_gap <- data.frame(
@@ -112,9 +102,7 @@ test_that("relative_time=FALSE preserves original bin values (may have gaps)", {
   expect_false(identical(sort(unique(result$time)), 1:4))
 })
 
-################################################################################
-# Block 4: Time column parsing (integer, POSIXct, character string)
-################################################################################
+# Block 4: Time column parsing (integer, POSIXct, character string) -------
 
 test_that("integer time column is handled", {
   el_int <- el
@@ -148,9 +136,7 @@ test_that("character time with time_format is parsed correctly", {
   expect_equal(length(unique(result$time)), 2L)
 })
 
-################################################################################
-# Block 5: weightvar = NULL (count mode) vs explicit weight column
-################################################################################
+# Block 5: weightvar = NULL (count mode) vs explicit weight column --------
 
 test_that("weightvar=NULL counts interactions as weight", {
   el_now <- data.frame(
@@ -186,9 +172,7 @@ test_that("explicit weight column is summed correctly", {
   expect_equal(result$w, 10)
 })
 
-################################################################################
-# Block 6: Edge cases and error handling
-################################################################################
+# Block 6: Edge cases and error handling ----------------------------------
 
 test_that("NAs in time column produce a warning", {
   el_na <- el