`as.mlm.rda` <- function (x) { X <- qr.X(x$CCA$QR) lm(x$CCA$wa ~ . - 1, data = as.data.frame(X)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.