This data was generated from the following code:
set.seed(2020)
t1 <- save_history(flea[, 1:6], guided_tour(holes()), max = 100)
attr(t1, "class") <- NULL
And used as an example for search_polish() to start
optimising from the best projection from search_geodesic.
t1 is a 3D array or 2D projections.