data-raw/timings.R

In krlmlr/wrswoR.benchmark: Benchmark and Correctness Data for Weighted Random Sampling Without Replacement

library(magrittr)
library(wrswoR)

pkg <- devtools::as.package(".")
source(file.path(pkg$path, "data-raw", "benchmark.R"))


N <- trunc(10 ** seq(1.5, 7, by = 0.5)) %>% setNames(nm = .)
R <- c(0.01, 0.1, 1) %>% setNames(nm = .)

timings <- .benchmark()

rextdata::use_extdata(timings, overwrite = TRUE, compress = "xz")