R/qexp.R

In Rlab: Functions and Datasets Required for ST370 Class

"qexp" <-

function(p, rate = 1, beta = 1/rate,  lower.tail = TRUE, log.p = FALSE)



{



    if (any(beta <= 0) || any(rate <= 0)) 



            stop("beta (or rate) must be strictly positive")



stats::qexp(p,rate=1/beta,lower.tail=lower.tail,log.p=log.p)

	

}