df <- data.frame(value = rnorm(100), group = rep(1:2, each = 50))
bivarplot(df)
# Bootstrap confidence intervals for the difference of
# Huber's M-estimator of location of two groups
# Increase R for real-world applications
bshubermean <- bootstrap(df, statistic=calchubermeandif, alpha=0.05,
alternative="less", R=200)
bshubermean
Run the code above in your browser using DataLab