# Generate datasets of full complexity
result <- generate_data(
n_claims_per_period = 50, data_type = c('claims', 'payments'),
complexity = 5, random_seed = 42)
# Save individual datasets
claims <- result$claim_dataset
payments <- result$payment_dataset
# Generate chain-ladder compatible dataset
CL_simple <- generate_data(
n_claims_per_period = 50, data_type = 'claims', complexity = 1, random_seed = 42)
# To mute message output
CL_simple_2 <- generate_data(
n_claims_per_period = 50, data_type = 'claims', verbose = FALSE, random_seed = 42)
# Ouput is reproducible with the same random_seed value
all.equal(CL_simple$claim_dataset, CL_simple_2$claim_dataset)
Run the code above in your browser using DataLab