## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set(collapse = TRUE, comment = "#>") set.seed(20260212) library(GLBFP) source(system.file("bench", "sim_scenarios.R", package = "GLBFP")) source(system.file("bench", "run_validation.R", package = "GLBFP")) ## ----------------------------------------------------------------------------- result <- run_validation_suite(reps = 2, grid_size_1d = 60, grid_size_2d = 16) summary_tbl <- summarise_validation(result) summary_tbl ## ----------------------------------------------------------------------------- mi <- summary_tbl[order(summary_tbl$scenario, summary_tbl$ise_mean), ] mi[, c("scenario", "dimension", "method", "ise_mean", "elapsed_mean")] ## ----------------------------------------------------------------------------- result$sensitivity