R/betagup.R

betagup <-
function(q,p,G,lg,sigmainv,betag){
	for(g in 1:G){
		betag[,,g] <- t(lg[,,g]) %*% sigmainv[,,g]
	}
	betag
}

Try the mmtfa package in your browser

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

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