# NOT RUN {
## Setup
dat_std <- scale_sd(wine[, 2:6])
bas <- basis_pca(dat_std)
manip_var_of(basis = bas) ## Variable with the largest contribution
manip_var_of(basis = bas, rank = 5) ## Variable with 5th-largest contribution
# }
Run the code above in your browser using DataLab