R/coef.cca.R

"coef.cca" <-
function (object, ...) 
{
	Q <- object$CCA$QR
	u <- object$CCA$u
	u <- sweep(u, 1, sqrt(object$rowsum), "*")
	qr.coef(Q, u)
}
pattakosn/Rworkshop documentation built on May 24, 2019, 8:22 p.m.