Nothing
solvePR <-
function(mean, variance){
p <- 1 - (mean/variance)
r <- (mean)^2/(variance-mean)
return(c(p,r))
}
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.