Nothing
DataName.maov <- manova(ResponseMatrix ~ FactorNames, data=DataName)
summary(DataName.maov, test="Wilks")
summary(DataName.maov, test="Roy")
summary(DataName.maov, test="Hotelling-Lawley")
summary(DataName.maov, test="Pillai")
summary.aov(DataName.maov)
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.