Nothing
## Use this library to compute the exact probability of ruin in the infinite
## time horizon
psi.inf <- function(model) {
stopifnot(names(model) %in% c('premium', 'freq', 'variance', 'rates'))
sdprisk::hypoexpRuinprob(riskproc(claiminfo(hypoexp = list(rates = model$rates)),
premium = model$premium,
freq = model$freq,
variance = model$variance))[['psi']]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.