R/HuberTun.R

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)	
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.