Nothing
print.proC <- function(x, ...) {
ans <- rbind(x$Anova.MSS, x$Anova.ESS, x$Anova.TSS)
dimnames(ans) <- list(NULL, "Sum of Squares")
ans <- data.frame(Source = c("Model", "Error", "Total"), ans)
print(list(`Rotation Matrix` = x$Rotation.Matrix, `Analysis of Variance` = ans))
}
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.