R/getY.R

Defines functions `getY`

`getY` <-
function(mf){
	y<-model.response(mf)
	if(!is.factor(y))
		return(y)
	if(length(unique(y))==2)
		return(as.numeric(y)-1)
	y
}
holgerschw/logicFS documentation built on April 15, 2020, 10:42 p.m.