R/as.mlm.rda.R

`as.mlm.rda` <-
    function (x) 
{
    X <- qr.X(x$CCA$QR)
    lm(x$CCA$wa ~ . - 1, data = as.data.frame(X))
}
pattakosn/Rworkshop documentation built on May 24, 2019, 8:22 p.m.