Nothing
QtoJackson<-function(Q,h0, x1, x2, x3){
Calpha<-x3*((Q*x1)^(h0)+x2)
threshold<-pnorm(Calpha, lower.tail=FALSE)
return(threshold)
}
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.