R | 하나의 입원 에피소드 구하기, 연속된 약물투여기간 구하기

상황1. 입원에피소드 구하기 환자번호 JID, 병원번호 YID 별로 요양개시일 RECU_FR_DD과 요양종료일 RECU_TO_DD이 각각 기재된 여러개의 청구명세서가 있다. 여기서 환자번호가 같고 병원번호가 같은 경우, 앞의 요양종료일과 다음 요양개시일의 간격일이 1일 이내(0일 또는 1일)이면 하나의 진료기간(에피소드)으로 산출하여 시작일과 종료일을 산출하고자 한다. SS <- SS %>% setorder(JID, YID, RECU_FR_DD) %>% group_by(JID, YID) %>% mutate(gap = RECU_FR_DD - lag(RECU_TO_DD)) SS$gap <- as.numeric(SS$gap) SS <- SS %>% group_by(JID, YID) %>% mutate(grp = cumsum(c(gap > 1 | is.na(gap))) %>% group_by(JID, YID, grp) %>% mutate(ADM_DD = min(RECU_FR_DD), DSC...

원문링크 : R | 하나의 입원 에피소드 구하기, 연속된 약물투여기간 구하기