R/pn.R

pn <-
function(sigma,sigma0,an)
{
	-an*( sigma0/sigma + log(sigma/sigma0) -1)
}

Try the MixtureInf package in your browser

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

MixtureInf documentation built on May 2, 2019, 3:32 p.m.