R/funPharm.R, R/getATCViaNHINo.R
getATCViaNHINo.RdThis is a function to get Anatomical Therapeutic Chemical Classification System(ATC) code via Taiwan Health Insurance drug code(NHINo)
getATCViaNHINo(df, NHINoColName = NHINo)
| df | data.frame include NHINO |
|---|---|
| NHINoColName | A colum for NHINo of df |
This function filter the patient to be analyzed with the target indication drug, which encode in RxCui and be converted to ATC code by the function getATCViaRxCui().
User inputs the data frame with drug column which encoded in NHINo, then the output will add a column named ATC in the original input data frame.
# sample of getting ATC code via NHINo. head(getATCViaNHINo(df = sample_nhino_code,NHINoColName = NHINo))#> Error in df %>% left_join(resATC, by = c(NHINo = "nhino")): 沒有這個函數 "%>%"