trimLogit <- function(x, trim=0.00001) { x[x < trim] <- trim x[x > (1-trim)] <- (1-trim) foo <- log(x/(1-x)) return(foo) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.