data-raw/simulated_normal.R

In josh-mc/fabricated: Tools to Audit Survey Data Quality

## code to prepare `simulated_normal` dataset goes here

library(dplyr)

set.seed(48)

simulated_normal <- rnorm(1000) %>%
  as.data.frame() %>%
  rename(obs = ".") %>%
  mutate(obs = round(obs, 1))

#Adding a variable to use for the group argument.

group <- rep(c(1:10), 100)

simulated_normal <- bind_cols(simulated_normal, group) %>%
  rename(group = "...2")

usethis::use_data(simulated_normal, overwrite = TRUE)