data-raw/create_sample_data.R

set.seed(1000)

x= rnorm(100)

y=x*2 + rnorm(100)

sample_data= data.frame(x=x, y=y)

readr::write_csv(sample_data,path = "inst/extdata/sample_data.csv")
usethis::use_data(sample_data, compress = 'xz')
Dalcatruz/lobbyR documentation built on Oct. 30, 2019, 5:53 a.m.