R/sginitc.R
In mmtfa: Model-Based Clustering and Classification with Mixtures of Modified t Factor Analyzers

sginitc <-
function(G,sg,pig,p,n,x){
	sgc <- matrix(0,p,p)
	for(g in 1:G){
		sgc <- sgc + pig[g]*sg[,,g]
	}
	sgc
}

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

mmtfa documentation built on May 2, 2019, 1:45 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the mmtfa package in your browser