R/rpdatasim.R

In bootruin: A Bootstrap Test for the Probability of Ruin in the Classical Risk Process

Defines functions rpdatasim

Documented in rpdatasim

rpdatasim <- function(n, replications, rdist, ...) {
    stopifnot(is.function(rdist), is.numeric(n), is.numeric(replications))

    matrix(data = rdist(n * replications, ...),
           nrow = n,
           ncol = replications)
}

Try the bootruin package in your browser