# Expected output: 50-10-3 series of type 1, then 13 series of type 3 (closest next)
# NOTE: -10 because only past days with no-NAs tomorrow => exclude type 1 in [60,90[
expect_identical(length(f$neighb_indices), as.integer(50))
expect_identical(length(f$colors), as.integer(50))
# Expected output: 50-10-3 series of type 1, then 13 series of type 3 (closest next)
# NOTE: -10 because only past days with no-NAs tomorrow => exclude type 1 in [60,90[
expect_identical(length(f$neighb_indices), as.integer(50))
expect_identical(length(f$colors), as.integer(50))