R/simNormMixt.R

Defines functions simNormMixt

simNormMixt <-
function(n, mu.surrog, sd.surrog, pi)
{
  pi<-pi/sum(pi)
  J<-length(mu.surrog)
  r <- rmultinom(1,n,pi)
  unlist(sapply(seq(along=r),function(j) rnorm(r[j], mean=mu.surrog[j], sd = sd.surrog[j])))
}

Try the CNVassoc package in your browser

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

CNVassoc documentation built on May 30, 2017, 12:50 a.m.