9.2 Phenotype control exclusion events

Import the outcome-specific dictionaries for control exclusion events.

nondm_eye_disease_dict <- readRDS("generated_data/nondm_eye_disease_dict.RDS")
kidney_disease_control_exclusion_dict <- readRDS("generated_data/kidney_disease_control_exclusion_dict.RDS")

9.2.1 Non-diabetic eye disease events

Phenotype non-diabetic eye disease event table.

nondm_eye_disease_pc <- 
  pc %>% filter(code %in% nondm_eye_disease_dict$code) %>% select(f.eid,event_dt) %>% mutate(event_dt=as.Date(event_dt))

saveRDS(nondm_eye_disease_pc,"generated_data/nondm_eye_disease_pc.RDS")

9.2.2 Kidney disease control exclusion events

Phenotype kidney disease control exclusion event table.

kidney_disease_control_exclusion_pc <- 
  pc %>% filter(code %in% kidney_disease_control_exclusion_dict$code) %>%
  mutate(event_dt = as.Date(event_dt))

saveRDS(kidney_disease_control_exclusion_pc,"generated_data/kidney_disease_control_exclusion_pc.RDS")