R/as.mlm.cca.R

`as.mlm.cca` <-
    function (x) 
{
    w <- x$rowsum
    wa <- x$CCA$wa
    wa <- sweep(wa, 1, sqrt(w), "*")
    X <- qr.X(x$CCA$QR)
    lm(wa ~ . - 1, data = as.data.frame(X))
}

Try the vegan package in your browser

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

vegan documentation built on May 2, 2019, 5:51 p.m.