Nothing
print.SJ <-
function(x,...){
cat("Object of class \"SJ\"\n")
cat("Contains the graphs:\n")
if(class(x$graph) == "list"){
print(data.frame("lambda" = signif(x$lambda,2), "Edges" = unlist(lapply(x$graph,ecount)), "bic" = x$bic))
}
else print(data.frame("lambda" = signif(x$lambda,2), "Edges" = ecount(x$graph), "bic" = x$bic))
cat("Call:\n\t");print(x$cl)
invisible(x)
}
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.