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