R/indexing.R

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

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

#' @exportS3Method "[" semforest
`[.semforest` <- function(x, i, ...) 
{
  x$forest[[i]]
}
brandmaier/semtree documentation built on April 18, 2024, 3:24 a.m.