R/rbeta1.R

Defines functions rbeta1

Documented in rbeta1

#[export]
rbeta1 <- function(n, a) {
  if (a != 1 ) {
    x <- exp( -rexp(n, a) )
  } else x <- runif(n)
  x   
}

Try the Rfast2 package in your browser

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

Rfast2 documentation built on Aug. 8, 2023, 1:11 a.m.