Nothing
\dontshow{
if (requireNamespace("CCA", quietly = TRUE)) \{
}
data(nutrimouse, package = "CCA")
x <- nutrimouse$gene[ , 1:5]
y <- nutrimouse$lipid
cc <- cancor(x, y)
# Re-compute explained correlation
ac <- acor(x, cc$xcoef, y, cc$ycoef)
# Results should agree
print(cc$cor)
print(ac$cor)
\dontshow{\}}
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.