- # index 144 : serie type 1
- f = computeFilaments(data, 144, limit=50, plot=FALSE)
- # Expected output: 2 series of type 3 (closer), then 50-2 series of type 1
- expect_identical(length(f$indices), 50)
- expect_identical(length(f$colors), 50)
- for (i in 1:2)
+ # index 143 : serie type 1
+ f = computeFilaments(data, 143, limit=60, plot=FALSE)
+ # Expected output: 23 series of type 3 (closer), then 50-10-3 series of type 1, then 143
+ # NOTE: -10 because only past days with no-NAs tomorrow => exclude type 1 in [60,90[
+ expect_identical(length(f$indices), as.integer(61))
+ expect_identical(length(f$colors), as.integer(61))
+ expect_true(all(f$indices >= 2)) #first_day should be 2
+ for (i in 1:23)