# NOT RUN {
flea_std <- tourr::rescale(tourr::flea[, 1:6])
rb <- tourr::basis_random(n = ncol(flea_std))
manual_tour(basis = rb, manip_var = 4)
manual_tour(basis = rb, manip_var = 6,
theta = pi / 2, phi_min = pi / 16, phi_max = pi, angle = .1)
# }
Run the code above in your browser using DataLab