data-raw/create_sample_data.R

set.seed(100)
library(tibble)

x = rnorm(100)
y = x*2 + rnorm(100)
sample_data = tibble(x = x, y = y)

readr::write_csv(sample_data, file = "inst/exdata/sample_data.csv")

usethis::use_data(sample_data, compress = "xz")
Pereirajpf/testpack documentation built on Feb. 27, 2021, 12:33 a.m.