simul/dm.R

In idmn/dval:

library(magrittr)
generate_dm <- function(N = 50){
    USUBJID <- paste0("ABC", stringr::str_pad(1:N, 3, pad = "0"))

    AGE <- round(rnorm(N, mean = 60, sd = 10))
    AGE[sample(1:N, 0.1*N)] <- NA
    AGE[sample(1:N, 0.1*N)] <- sample(c(-1, 200), 0.1*N, replace = TRUE)

    ARM <- sample(c("A", "B"), N, TRUE)

    RACE <- sample(c("WHITE", "BLACK OR AFRICAN AMERICAN", "ASIAN",
                     "UNKNOWN", "AMERICAN INDIAN OR ALASKA NATIVE"), N, TRUE)
    RACE[sample(N, 0.1*N)] %<>% tolower

    data.frame(
        USUBJID = USUBJID,
        AGE     = AGE,
        ARM     = ARM,
        RACE    = RACE
    )
}

set.seed(1)
dm <- generate_dm()