R/print.semforest.control.R

In semtree: Recursive Partitioning for Structural Equation Models

#' @exportS3Method print semforest.control
print.semforest.control <- function(x, ...)
{
	stopifnot(is(x,"semforest.control"))

	cat("SEM-Forest control:\n-----------------\n")

	cat("Number of Trees: ", x$num.trees,"\n")
	cat("Sampling: ", x$sampling,"\n");
	cat("Comparisons per Node:", x$mtry,"\n\n")
	print.semtree.control(x$semtree.control)
}