R/regp3.R

Defines functions regp3

Documented in regp3

#' @rdname degp3
#' @export
regp3 <- function(n, kappa=1, sigma, xi, u=0){

  kappa <- rep(kappa, length.out=n)
  sigma <- rep(sigma, length.out=n)
  xi <- rep(xi, length.out=n)
  u <- rep(u, length.out=n)

  qegp3(-rexp(n), kappa, sigma, xi, u, log.p=TRUE)
}

Try the texmex package in your browser

Any scripts or data that you put into this service are public.

texmex documentation built on May 2, 2019, 5:41 a.m.