R/makeDatas.R

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

makeDatas <- 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"
  myDF1 <- data.frame(id=id, diagCode=diagCode, diagCode2=diagCode2)

  id <- seq(from=201, to=260, by=2)
  vals14 <- rep(c("high324", "low268"), 7)
  diagCode <- c(vals14, "med44", "med44", vals14)
  diagCode2 <- rep(NA, 30); diagCode2[c(4,9,21, 24)] <- "high324"
  myDF2 <- data.frame(id=id, diagCode=diagCode, diagCode2=diagCode2)

  id <- seq(from=301, to=340, by=2)
  vals10 <- rep(c( "low268", "high324"), 5)
  diagCode <- c(vals10, "med44", vals10[1:8], "med44")
  diagCode2 <- rep(NA, 20); diagCode2[c(2,9,20)] <- "high324"
  myDF3 <- data.frame(id=id, diagCode=diagCode, diagCode2=diagCode2)

  myDFlist <<- list(myDF1, myDF2, myDF3)

}