R/dexp.R

"dexp" <-

function(x, rate = 1, beta = 1/rate, log = FALSE)



{



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



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



	 stats::dexp(x,rate=1/beta,log=log)

	

}

Try the Rlab package in your browser

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

Rlab documentation built on May 5, 2022, 1:05 a.m.