"qua.ostat" <- function(f,j,n,para=NULL) { betainv <- qbeta(f,j,n-j+1) return(par2qua(betainv,para)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.