Extract the end point at each interpolation
get_interp_last(dt, group = NULL)a data object collected by the projection pursuit guided tour optimisation in the tourr package
the variable to label different runs of the optimiser(s)
a tibble object containing the last interpolating basis in each iteration
Other get functions:
get_anchor(),
get_basis_matrix(),
get_best(),
get_dir_search(),
get_interp(),
get_interrupt(),
get_search_count(),
get_search(),
get_space_param(),
get_start(),
get_theo()
holes_1d_better %>% get_interp_last()
#> # A tibble: 4 × 8
#> basis index_val info method alpha tries loop id
#> <list> <dbl> <chr> <chr> <dbl> <dbl> <dbl> <int>
#> 1 <dbl [5 × 1]> 0.753 interpolation search_better NA 2 9 9
#> 2 <dbl [5 × 1]> 0.798 interpolation search_better NA 3 15 24
#> 3 <dbl [5 × 1]> 0.866 interpolation search_better NA 4 7 31
#> 4 <dbl [5 × 1]> 0.914 interpolation search_better NA 5 6 37
get_interp_last(dplyr::bind_rows(holes_1d_better, holes_1d_geo), group = method)
#> # A tibble: 12 × 8
#> basis index_val info method alpha tries loop id
#> <list> <dbl> <chr> <chr> <dbl> <dbl> <dbl> <int>
#> 1 <dbl [5 × 1]> 0.753 interpolation search_better NA 2 9 9
#> 2 <dbl [5 × 1]> 0.798 interpolation search_better NA 3 15 24
#> 3 <dbl [5 × 1]> 0.866 interpolation search_better NA 4 7 31
#> 4 <dbl [5 × 1]> 0.914 interpolation search_better NA 5 6 37
#> 5 <dbl [5 × 1]> 0.753 interpolation search_geodesic NA 2 7 7
#> 6 <dbl [5 × 1]> 0.793 interpolation search_geodesic NA 3 11 18
#> 7 <dbl [5 × 1]> 0.805 interpolation search_geodesic NA 4 7 25
#> 8 <dbl [5 × 1]> 0.836 interpolation search_geodesic NA 5 8 33
#> 9 <dbl [5 × 1]> 0.890 interpolation search_geodesic NA 6 7 40
#> 10 <dbl [5 × 1]> 0.917 interpolation search_geodesic NA 7 5 45
#> 11 <dbl [5 × 1]> 0.929 interpolation search_geodesic NA 8 4 49
#> 12 <dbl [5 × 1]> 0.933 interpolation search_geodesic NA 9 3 52