R/get.coefs.R

get.coefs <-
		function(Y, mod) 
{
	t(solve(t(mod) %*% mod) %*% t(mod) %*% t(Y))
}
Sage-Bionetworks/snm documentation built on May 9, 2019, 12:14 p.m.