R/rpe.R

Defines functions rpe

Documented in rpe

rpe <- function(n, theta, lambda) {
  u <- Rfast2::Runif( n )
  ( log( theta ) - log( - log( u - exp( - theta ) * ( u - 1 ) ) ) ) / 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.