R/makeData.R

In etesdahl/claimWranglR: Utility Functions for Working with Health Claims Data

makeData <- function() {
  id <- seq(from=101, to=150, by=2)
  vals12 <- rep(c("high324", "low268"), 6)
  diagCode <- c(vals12, "med44", vals12)
  diagCode2 <- rep(NA, 25); diagCode2[c(2,13,24)] <- "high324"
  myDF <<- data.frame(id=id, diagCode=diagCode, diagCode2=diagCode2)
}