# NOT RUN {
flea_std <- tourr::rescale(tourr::flea[, 1:6])
rb <- basis_random(n = ncol(flea_std))
mtour <- manual_tour(basis = rb, manip_var = 4)
sshow <- array2df(array = mtour, data = flea_std)
render_plotly(slides = sshow)
render_plotly(slides = sshow, col = col_of(flea$species),
axes = "bottomleft", fps = 2)
# }
Run the code above in your browser using DataLab