# NOT RUN {
dat_std <- scale_sd(wine[, 2:6])
basis_guided(data = dat_std, index_f = tourr::holes())
basis_guided(data = dat_std, index_f = tourr::cmass(),
alpha = .4, cooling = .9, max.tries = 10, n_sample = 4)
# }
Run the code above in your browser using DataLab