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)

## Arguments

dt a data object collected by the projection pursuit guided tour optimisation in the tourr package a matrix of the theoretical basis the index function used to calculate the index value a tibble of the original data used to calculate the index value

## 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)
#> 1 <dbl[,1] [5 × 1]>     0.931 theoretical NA        NA    NA    NA     0