tourr (version 1.2.4)

search_jellyfish: A jellyfish optimiser for projection pursuit guided tour

Description

A jellyfish optimiser for projection pursuit guided tour

Usage

search_jellyfish(current, index, tries, max.tries = 50, verbose = FALSE, ...)
check_dup(bases, min_dist)

Arguments

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

verbose

whether to print out the progress messages

...

other arguments being passed into the search_jellyfish()

bases

a list of bases extracted from the data collection object, see examples

min_dist

the minimum distance between two bases

Examples

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)