R/sciMultinomialVar.R

sciMultinomialVar<-function (multinomialMeans)
{
  p <- multinomialMeans
  vars <- p * (1 - p)
  covs <- -outer(p, p)
  diag(covs) <- vars
  drop(covs)
}

Try the scitb package in your browser

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

scitb documentation built on Sept. 26, 2024, 9:06 a.m.