boot.ci.M(X1, X2, alpha = 0.05, est = huber.one.step, R = 1000, type = "perc")boot.ci from the library boot.R if NAs occur because MAD = 0.bootstrap, bootX1<-rnorm(100,2,2.5)
X2<-rnorm(100,3,3)
boot.ci.M(X1,X2)Run the code above in your browser using DataLab