if (FALSE) { # requireNamespace("ChainLadder", quietly = TRUE)
# Create a reporting triangle from synthetic NSSP data
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 format
cl_triangle <- as_ChainLadder_triangle(rep_tri)
print(cl_triangle)
# Visualize the reporting triangle structure
plot(cl_triangle)
}
Run the code above in your browser using DataLab