# NOT RUN {
model <- SparreAndersen(initial_capital = 10,
premium_rate = 1,
claim_interarrival_generator = rexp,
claim_interarrival_parameters = list(rate = 2),
claim_size_generator = rexp,
claim_size_parameters = list(rate = 1))
path <- simulate_path(model = model, max_time_horizon = 10)
# }
Run the code above in your browser using DataLab