R/rmix.dexp.R

Defines functions rmix.dexp

Documented in rmix.dexp

rmix.dexp <-
function(n, means = 0)
{
	x <- logb(runif(n))
	x <- x * sample(c(-1, 1), n, replace = TRUE)
	xmeans <- if(length(means) > 1) sample(means, n, replace = TRUE) else 
			means
	x + xmeans
}

Try the ProDenICA package in your browser

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

ProDenICA documentation built on March 18, 2022, 6:28 p.m.