tests/testthat/single_numeric_few_distinct/setup_data.R

# Set up some toy data
n = 100
nDistinct = 10L
set.seed(3890)
vals = rnorm(nDistinct)

saveRDS(sample(vals, size = n, replace = TRUE), "small1.rds", compress = FALSE)
saveRDS(sample(vals, size = n, replace = TRUE), "small2.rds", compress = FALSE)
saveRDS(sample(vals, size = 2 *n, replace = TRUE), "big.rds", compress = FALSE)
clarkfitzg/makeParallel documentation built on Nov. 21, 2020, 2:35 a.m.