Nothing
print.dream <- function(x,...){
cat("
Call:
")
print(x$call)
cat("
Control:
")
for (i in names(x$control)){
v <- x$control[[i]]
cat(sprintf("%15s: ",i))
cat(v,"\n")
}
cat("\nExit condition:",x$EXITMSG,"\n")
}
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.