HuberTun <- function(kappa,p){ prob=1-kappa chip=qchisq(prob,p) r=sqrt(chip) tau=(p*pchisq(chip,p+2)+ chip*(1-prob))/p Results=list(r=r,tau=tau) return(Results) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.