tests/testthat/single_numeric_vector/setup_data.R

# Set up some toy data
n = 100
small = seq(from = 0, to = 1, length.out = n)

saveRDS(small, "small1.rds", compress = FALSE)
saveRDS(small, "small2.rds", compress = FALSE)

big = c(small, small)
saveRDS(big, "big.rds", compress = FALSE)
clarkfitzg/codedoctor documentation built on Nov. 10, 2019, 7:11 a.m.