R/sdrni.R

In Nmix: Bayesian Inference on Univariate Normal Mixtures

Defines functions sdrni

Documented in sdrni

sdrni<-function(seed)
{
if(seed==0) 
	{
	set.seed(NULL)
	seed<-sample(1:999999999,1)
	}
set.seed(seed)
seed
}

Try the Nmix package in your browser