R/med.effect.sub.R

med.effect.sub <-
function(x,y,HD,varfun=pbvar){
if(HD){
e1=hd(x)
e2=hd(y)
}
if(!HD){
e1=median(x)
e2=median(y)
}
val=var(c(e1,e2))/varfun(c(x,y))
val
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.