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
}

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.