Nothing
#' @exportS3Method print summary.semtree
print.summary.semtree <-
function(x, ...) {
cat("SEMtree Summary\n");
cat("Template model: ",x$model.title,"\n")
cat("Total Sample Size: ", x$sample.size,"\n")
cat("Number of nodes: ", x$num.nodes,"\n")
cat("Number of leaf nodes: ", x$leaf.nodes,"\n")
cat("Free Parameters: ", x$df," (",x$parameter.names,")\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.