R/cbmhd_subMC.R

cbmhd_subMC <-
function(data,cbmhd_subMC,x,y,q,q2,n1,n2){
np1=n1+1
nall=n1+n2
mb=outer(x[data[1:n1]],y[data[np1:nall]],"-")
est=hd(mb,q)+hd(mb,q2)
est
}
musto101/wilcox_R documentation built on May 23, 2019, 10:52 a.m.