## load example data set
data(X.artificial, envir = environment())
## create weight transformation limits vector
lw <- seq(0, 0.6, by = 0.02)
## test the vector
test.lw(X = X.artificial, lw = lw)Run the code above in your browser using DataLab