R/getKnots.R

Defines functions `getKnots`

`getKnots` <-
function(tree){
	if(is(tree,"logregtree"))
		knot<-tree$trees$knot
	else
		knot<-unlist(lapply(tree,function(x) x$trees$knot))
	knot<-knot[knot!=0]
	unique(knot)
}
holgerschw/logicFS documentation built on April 15, 2020, 10:42 p.m.