# NOT RUN {
flea_std <- tourr::rescale(tourr::flea[, 1:6])
rb <- tourr::basis_random(n = ncol(flea_std))
class <- tourr::flea$species
# }
# NOT RUN {
play_manual_tour(basis = rb, data = flea_std, manip_var = 4)
play_manual_tour(basis = rb, data = flea_std, manip_var = 6, theta = .5 * pi,
render_type = render_gganimate, col = class, pch = class,
axes = "bottomleft", fps = 5)
# }
Run the code above in your browser using DataLab