## This function is not meant for external use
dat <- scale_sd(wine[, 2:6])
clas <- wine$Type
bas <- basis_pca(dat)
mv <- manip_var_of(bas)
mt <- manual_tour(bas, mv)
interp <- spinifex:::interpolate_manual_tour(basis_array = mt, angle = .1)
dim(interp)
str(interp)
Run the code above in your browser using DataLab