R/compMatProbMLR.R

Defines functions compMatProbMLR

compMatProbMLR<-function(trees,newData,n.lev){
	mat<-matrix(0,nrow(newData),n.lev)
	for(j in 2:n.lev)
		mat[,j]<-predict(trees[[j-1]],newData,2)
	mat<-exp(mat)
	mat/rowSums(mat)
}
holgerschw/logicFS documentation built on April 15, 2020, 10:42 p.m.