inst/skeleton/R/1-prep.R

prep <- function() {

  set.seed(8675309)
  ESS9GB %>%
    mutate(noise = rnorm(nrow(.))) -> Data

  saveRDS(Data, "data/Data.rds")
  Data <<- Data
  return(Data)
  # #Data
}
svmiller/steveproj documentation built on May 7, 2023, 9:16 p.m.