R/indexing.R

In semtree: Recursive Partitioning for Structural Equation Models

Defines functions `[.semforest` `[.semtree`

#' @exportS3Method "[" semtree
`[.semtree` <- function(x, i, ...) 
{
	getNodeById(x, i)
}

#' @exportS3Method "[" semforest
`[.semforest` <- function(x, i, ...) 
{
  x$forest[[i]]
}

Try the semtree package in your browser