Nothing
rirf <- function(x, theta = seq(-4, 4, length = 100)){
if(class(x) == "ifile")
x <- x$measure
ni <- length(x)
out <- list(theta = theta)
out$p <- sapply(1:ni, function(i) 1/(1 + exp(-theta + x[i])))
class(out) <- "rirf"
return(out)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.