# Create a reporting triangle from package data
data_as_of <- syn_nssp_df[syn_nssp_df$report_date <= "2026-04-01", ]
rep_tri <- as_reporting_triangle(data_as_of) |>
truncate_to_delay(max_delay = 25)
# Use the defaults (scale_factor = 3, prop_delay = 0.5)
ref_time_allocation_default <- allocate_reference_times(rep_tri)
ref_time_allocation_default
# Modify to use less volume and redistribute
ref_time_allocation_alt <- allocate_reference_times(
reporting_triangle = rep_tri,
scale_factor = 2,
prop_delay = 0.6
)
ref_time_allocation_alt
Run the code above in your browser using DataLab