library(spinifex)
dat <- scale_sd(wine[, 2:6])
bas <- basis_pca(dat)
mv <- manip_var_of(bas)
create_manip_space(basis = bas, manip_var = mv)
## d = 1 case
bas1d <- basis_pca(dat, d = 1)
mv <- manip_var_of(bas1d)
create_manip_space(bas1d, mv)
Run the code above in your browser using DataLab