Extract the theoretical best basis, if applicable
get_theo(dt)
dt | a data object collected by the projection pursuit guided tour optimisation in the |
---|
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 x 8 #> basis index_val info method alpha tries loop id #> <list> <dbl> <chr> <chr> <dbl> <dbl> <dbl> <dbl> #> 1 <dbl[,1] [5 × 1]> 0.931 theoretical NA NA NA NA 0