get_search(holes_1d_geo)
get_anchor(holes_1d_geo)
get_start(holes_1d_better)
get_interrupt(holes_1d_better)
get_interp(holes_1d_better) %>% head()
get_basis_matrix(holes_1d_better) %>% head()
get_best(dplyr::bind_rows(holes_1d_better, holes_1d_geo), group = method)
get_search_count(holes_1d_better)
get_search_count(dplyr::bind_rows(holes_1d_better, holes_1d_geo), group = method)
get_interp_last(holes_1d_better)
get_interp_last(dplyr::bind_rows(holes_1d_better, holes_1d_geo), group = method)
res <- holes_1d_geo %>% compute_pca() %>% purrr::pluck("aug")
get_dir_search(res)
best <- matrix(c(0, 1, 0, 0, 0), nrow = 5)
holes_1d_better %>%
bind_theoretical(best, tourr::holes(), raw_data = boa5) %>%
get_theo()
Run the code above in your browser using DataLab