R/rgep.R

Defines functions rgep

Documented in rgep

rgep <- function(n, beta, alpha, lambda) {
  u <- Rfast2::Runif( n )
  ( - beta ** - 1 ) * log( 1 + (lambda ** - 1) * log(1 - u ** ( 1 / alpha ) * ( 1 - exp( - lambda ) ) ) )
}

Try the geppe package in your browser

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

geppe documentation built on June 24, 2024, 5:08 p.m.