Nothing
`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))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.