Extract the end point at each interpolation

get_interp_last(dt, group = NULL)

Arguments

dt

a data object collected by the projection pursuit guided tour optimisation in the tourr package

group

the variable to label different runs of the optimiser(s)

Value

a tibble object containing the last interpolating basis in each iteration

See also

Examples

holes_1d_better %>% get_interp_last()
#> # A tibble: 4 x 8 #> basis index_val info method alpha tries loop id #> <list> <dbl> <chr> <chr> <dbl> <dbl> <dbl> <int> #> 1 <dbl[,1] [5 × 1]> 0.753 interpolation search_bett… NA 2 9 9 #> 2 <dbl[,1] [5 × 1]> 0.798 interpolation search_bett… NA 3 15 24 #> 3 <dbl[,1] [5 × 1]> 0.866 interpolation search_bett… NA 4 7 31 #> 4 <dbl[,1] [5 × 1]> 0.914 interpolation search_bett… NA 5 6 37
get_interp_last(dplyr::bind_rows(holes_1d_better, holes_1d_geo), group = method)
#> # A tibble: 12 x 8 #> basis index_val info method alpha tries loop id #> <list> <dbl> <chr> <chr> <dbl> <dbl> <dbl> <int> #> 1 <dbl[,1] [5 × 1… 0.753 interpolati… search_better NA 2 9 9 #> 2 <dbl[,1] [5 × 1… 0.798 interpolati… search_better NA 3 15 24 #> 3 <dbl[,1] [5 × 1… 0.866 interpolati… search_better NA 4 7 31 #> 4 <dbl[,1] [5 × 1… 0.914 interpolati… search_better NA 5 6 37 #> 5 <dbl[,1] [5 × 1… 0.753 interpolati… search_geode… NA 2 7 7 #> 6 <dbl[,1] [5 × 1… 0.793 interpolati… search_geode… NA 3 11 18 #> 7 <dbl[,1] [5 × 1… 0.805 interpolati… search_geode… NA 4 7 25 #> 8 <dbl[,1] [5 × 1… 0.836 interpolati… search_geode… NA 5 8 33 #> 9 <dbl[,1] [5 × 1… 0.890 interpolati… search_geode… NA 6 7 40 #> 10 <dbl[,1] [5 × 1… 0.917 interpolati… search_geode… NA 7 5 45 #> 11 <dbl[,1] [5 × 1… 0.929 interpolati… search_geode… NA 8 4 49 #> 12 <dbl[,1] [5 × 1… 0.933 interpolati… search_geode… NA 9 3 52