if (FALSE) { # requireNamespace("ChainLadder", quietly = TRUE)
# Create a reporting triangle
data_as_of_df <- syn_nssp_df[syn_nssp_df$report_date <= "2026-04-01", ]
rep_tri <- as_reporting_triangle(data = data_as_of_df)
# Convert to ChainLadder triangle
cl_triangle <- as_ChainLadder_triangle(rep_tri)
# Convert back to reporting_triangle (seamless round-trip)
# max_delay is inferred from the ChainLadder triangle dimensions
rep_tri_2 <- as_reporting_triangle(data = cl_triangle)
print(rep_tri_2)
}
Run the code above in your browser using DataLab