R/dmix.dexp.R

Defines functions dmix.dexp

Documented in dmix.dexp

dmix.dexp <-
function(x, means = 0)
{
	f1 <- x * 0
	nm <- length(means)
	for(m in means) {
		xx <- x + m
		f1 <- f1 + (exp( - xx) * (xx > 0) + exp(xx) * (xx < 0))/
			nm
	}
	f1
}

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.