Internal function. Interpolates a manual tour over the stored theta, and phi
specifications. Returns an interpolated basis_array to be consumed by
array2df.
interpolate_manual_tour(basis_array, angle = 0.05)array, of the target bases, the extrema of the walk/segments.
The step size between interpolated frames, in radians.
Other manual tour adjacent functions:
create_manip_space(),
manip_var_of(),
manual_tour(),
rotate_manip_space()
## This function is not meant for external use
dat_std <- scale_sd(wine[, 2:6])
clas <- wine$Type
bas <- basis_pca(dat_std)
mv <- manip_var_of(bas)
mt <- manual_tour(bas, mv)
interp <- spinifex:::interpolate_manual_tour(basis_array = mt, angle = .1)
dim(interp)
#> [1] 5 2 34
str(interp)
#> num [1:5, 1:2, 1:34] 0.0934 0.4287 0.6507 0.5784 0.2223 ...
#> - attr(*, "dimnames")=List of 3
#> ..$ : chr [1:5] "Alcohol" "Malic" "Ash" "Alcalinity" ...
#> ..$ : chr [1:2] "PC1" "PC2"
#> ..$ : chr [1:34] "frame1" "frame2" "frame3" "frame4" ...