Simulate a collective model

n_sims years of individual losses, as simulate_events().

Usage

collective_simulate(model, n_sims, seed)

Arguments

model

A collective_model.

n_sims

Number of simulated years.

seed

Generator seed.

Value

An event_set.

Examples

ev <- collective_simulate(collective_model(poisson_count(2), pareto(1000, 2)), 100, seed = 1)
ev@n_sims
#> [1] 100