data-raw/bodyweight.R

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

## code to prepare `bodyweight` dataset goes here

library(dplyr)

set.seed(38)

bodyweight <- rnorm(1000,
                    mean = 75,
                    sd = 10) %>%
  as.data.frame() %>%
  rename(obs = ".") %>%
  mutate(obs = round(obs, digits = 1))

#I'm loosely basing these numbers on: https://jech.bmj.com/content/jech/40/4/319.full.pdf

#Adding a variable to use for the group argument.

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

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


usethis::use_data(bodyweight, overwrite = TRUE)