# NOT RUN {
n = 100
p = 10
X = matrix(rnorm(n * p), nrow = n, ncol = p)
X = apply(X, 2, function(xj){(xj - mean(xj)) / sd(xj)})
S = 1000
W_base_obj = generate_W_base_and_sort(X, max_designs = S)
W_base_obj
# }
Run the code above in your browser using DataLab