touchstone/script.R

In njtierney/conmat: Builds Contact Matrices using GAMs and Population Data

# see `help(run_script, package = 'touchstone')` on how to run this
# interactively

# TODO OPTIONAL Add directories you want to be available in this file or during the
# benchmarks.
# touchstone::pin_assets("some/dir")

# installs branches to benchmark
touchstone::branch_install()

# benchmark a function call from your package (two calls per branch)
touchstone::benchmark_run(
  expr_before_benchmark = source("touchstone/touchstone-setup.R"),
  fit_single_contact_model = conmat::fit_single_contact_model(
    contact_data = contact_settings$home,
    population = polymod_population
  ),
  n = 2
)

touchstone::benchmark_run(
  expr_before_benchmark = source("touchstone/touchstone-setup.R"),
  fit_single_contact_model = conmat::predict_contacts(
    model = polymod_setting_models$home,
    population = fairfield
  ),
  n = 2
)

# TODO OPTIONAL benchmark any R expression (six calls per branch)
# touchstone::benchmark_run(
#   more = {
#     if (TRUE) {
#       y <- yourpkg::f2(x = 3)
#     }
#   }, #<- TODO put the call you want to benchmark here
#   n = 6
# )

# create artifacts used downstream in the GitHub Action
touchstone::benchmark_analyze()