Extract the theoretical best basis, if applicable
get_theo(dt)a data object collected by the projection pursuit guided tour optimisation in the tourr package
a tibble object containing the theoretical bases
Other get functions:
get_anchor(),
get_basis_matrix(),
get_best(),
get_dir_search(),
get_interp_last(),
get_interp(),
get_interrupt(),
get_search_count(),
get_search(),
get_space_param(),
get_start()
best <- matrix(c(0, 1, 0, 0, 0), nrow = 5)
holes_1d_better %>%
bind_theoretical(best, tourr::holes(), raw_data = boa5) %>%
get_theo()
#> # A tibble: 1 × 8
#> basis index_val info method alpha tries loop id
#> <list> <dbl> <chr> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 <dbl [5 × 1]> 0.931 theoretical NA NA NA NA 0