`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))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.