# NOT RUN {
flea_std <- tourr::rescale(tourr::flea[,1:6])
rb <- basis_random(n = ncol(flea_std))
msp <- create_manip_space(basis = rb, manip_var = 4)
rotate_manip_space(msp, theta = runif(1, max = 2 * pi),
phi = runif(1, max = 2 * pi) )
# }
Run the code above in your browser using DataLab