data(t1)
best_proj <- t1[, , dim(t1)[3]]
attr(best_proj, "data") <- NULL
best_proj <- unclass(drop(best_proj))
animate_xy(
flea[, 1:6],
guided_tour(holes()),
search_f = search_polish(
polish_max_tries = 5),
start = best_proj
)
Run the code above in your browser using DataLab