search_jellyfish | R Documentation |
A jellyfish optimiser for projection pursuit guided tour
search_jellyfish(current, index, tries, max.tries = 50, ...)
check_dup(bases, min_dist)
current |
starting projection, a list of basis of class "multi-bases" |
index |
index function |
tries |
the counter of the outer loop of the opotimiser |
max.tries |
the maximum number of iteration before giving up |
... |
other arguments being passed into the |
bases |
a list of bases extracted from the data collection object, see examples |
min_dist |
the minimum distance between two bases |
library(dplyr)
res <- animate_xy(flea[, 1:6], guided_tour(lda_pp(cl = flea$species),
search_f = search_jellyfish))
bases <- res |> filter(loop == 1) |> pull(basis) |> check_dup(0.1)
animate_xy(data = flea[,1:6], tour_path = planned_tour(bases), col = flea$species)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.