# NOT RUN {
animate_xy(flea[, 1:3], guided_tour(holes()), sphere = TRUE)
animate_xy(flea[, 1:6], guided_tour(holes()), sphere = TRUE)
animate_dist(flea[, 1:6], guided_tour(holes(), 1), sphere = TRUE)
clrs <- c("#486030", "#c03018", "#f0a800")
col <- clrs[as.numeric(flea$species)]
animate_xy(flea[, 1:6], guided_tour(lda_pp(flea[,7])), sphere = TRUE, col=col)
# save_history is particularly useful in conjunction with the
# guided tour as it allows us to look at the tour path in many different
# ways
f <- flea[, 1:3]
tries <- replicate(5, save_history(f, guided_tour(holes())), simplify = FALSE)
# }
Run the code above in your browser using DataLab