Nothing
AT.inverse.gamma.response <- function(surv, alpha, beta){
return(-0.5*(alpha/beta)+sqrt((alpha/(2*beta))^2 - 1/beta * log(surv)))
}
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.