R/getSplitInformationForest.R

In adibender/rFtools: Tools for the analysis of Random Forests (and cforest)

getSplitInformationForest <- function(rfObject, X = matrix()) {
	
	inbag <- rfObject$inbag
	
	lapply(1:rfObject$ntree, function(z) 
				getSplitInformationTree(tree = getTree(rfObject, z), 
						inbagInd = as.logical(inbag[,z]), X = X))
	
}