R/trimLogit.R

trimLogit <- function(x, trim=0.00001) {
	x[x < trim] <- trim
	x[x > (1-trim)] <- (1-trim)
	foo <- log(x/(1-x))
	return(foo)
}
ecpolley/SuperLearner_Old documentation built on May 15, 2019, 10:08 p.m.