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)
}

Try the logicFS package in your browser

Any scripts or data that you put into this service are public.

logicFS documentation built on Nov. 8, 2020, 5:23 p.m.