## load example data set
data(X.artificial, envir = environment())
## Test robustness
q <- 4:7
lw <- seq(from = 0, to = 0.1, by = 0.02)
TR <- test.robustness(X = X.artificial, q = q, lw = lw)
## define 2 limits by mouse clicks (uncomment to use).
# limits <- define.limits(data = TR, n = 2)
# limitsRun the code above in your browser using DataLab