Nothing
"qua.ostat" <-
function(f,j,n,para=NULL) {
betainv <- qbeta(f,j,n-j+1)
return(par2qua(betainv,para))
}
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.