revlogit <- function(t) {
if (length(t)>1) {
if(any(t>300)) {
t[t>300] <- 300
}
} else {
if(t>300) {
t <- 300
}
}
return(exp(t)/(1+exp(t)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.