## Not run:
# # medical lookup tables are provided with CPRD
# load("data/medical.RData")
# a <- read.csv("data/chronic-renal-disease.csv")
# a <- read_to_medcodes(a, medical, "code", lookup_readcodes= "readcode",
# lookup_medcodes="medcode", description = T)
# b <- select_events(db, tab = "Referral", columns = c("patid", "eventdate", "medcode"),
# where = "medcode %in% .(a$medcode) & eventdate < '2000-01-01'")
# b1 <- select_events(db, tab = "Clinical", columns = c("patid", "eventdate", "medcode"),
# where = "medcode %in% .(a$medcode) & eventdate < '2000-01-01'")
# ## End(Not run)
Run the code above in your browser using DataLab