The theoretical best basis is usually known for a simulated problem. Augment this information into the data object allows for evaluating the performance of optimisation against the theory.

bind_theoretical(dt, matrix, index, raw_data)

dt | a data object collected by the projection pursuit guided tour optimisation in the |
---|---|

matrix | a matrix of the theoretical basis |

index | the index function used to calculate the index value |

raw_data | a tibble of the original data used to calculate the index value |

a tibble object containing both the searched and theoretical best bases

Other bind:
`bind_random_matrix()`

,
`bind_random()`

best <- matrix(c(0, 1, 0, 0, 0), nrow = 5) tail(holes_1d_better %>% bind_theoretical(best, tourr::holes(), raw_data = boa5), 1)#> # 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