Nothing
print.ez <- function(x,...) {
results <- x
code = "</pre>"
code = paste(code,"<h1>Analysis of Variance</h1>\n")
for(i in 1:length(results)) {
code = paste(code,"<h3>",names(results[i]),"</h3>\n",sep="")
code = paste(code,h.df(results[[i]], rowcolors = TRUE),"\n",sep="")
if(!is.null(attr(results[i],"warnings"))) code = paste(code,attr(results[i],"warnings"))
}
if(!is.null(attr(results,"warnings"))) code = paste(code,attr(results,"warnings"))
code = paste(code,"<pre>\n")
cat(code)
invisible(results)
}
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.