R/multinom.sim.R

Defines functions multinom.sim

Documented in multinom.sim

multinom.sim<-function(data, mle=NULL)
{
	if(is.null(mle))
		data$Observed<-rmultin(sum(data$Observed), data$Expected/sum(data$Expected))
	else
		data$Observed<-rmultin(mle$n, mle$p)
	return(data)
}

Try the DCluster package in your browser

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

DCluster documentation built on Sept. 3, 2023, 5:07 p.m.