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

yginvup <-
function(p,G,yg){
	yginv <- array(0, dim=c(p, p, G))
	for(g in 1:G){
		diag(yginv[,,g]) <- diag(yg[,,g]^(-1))
	}
	yginv
}

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