R 如何分组求差分

cheetahfly 发表于 2017-2-12 19:54

太棒了！！judge函数的向量运算非常巧妙！！
能否再请教，如果再加入就诊医院的变量（hospital_id)，仅当“后一次入院时间与前一次出院时间相隔在30天内，且后一次的就诊医院不为前一次的就诊医院时”，才判断为前一次就诊失败。其余的记录都判断为前一次治疗成功，该怎么写程序呢？（因为后续分析仅关注根据再入院情况判断为治疗失败的记录，其他记录是success还是unknown并不需要严格区分）。

非常感谢您的回复！我想在评分里给您100论坛币和20学术水平、20热心指数，可是总是提示“请输入正确的分值”，不知道是怎么回事。

cheetahfly 发表于 2017-2-12 19:54

是不是我级别太低了，评分数字填高了就会报错

cheetahfly 发表于 2017-2-12 19:54

是不是我级别太低了，评分数字填高了就会报错

梦孟小宝 发表于 2017-2-13 21:25
太棒了！！judge函数的向量运算非常巧妙！！
能否再请教，如果再加入就诊医院的变量（hospital_id)，仅当 ...

1. judge <- function(vec1, vec2, date, t) {
   
2.     n <- length(vec1)
   
3.     out <- c(ifelse(vec1[-1] - vec2[-n] < t & hospital_id[-1] != hospital_id[-n],
   
4.                     "Failure", "Success"),
   
5.              ifelse(date - vec2[n] < t, "Unkown", "Success"))
   
6.     out
   
7. }
   
8. # 未经调试过

复制代码

cheetahfly 发表于 2017-2-14 07:47

非常感谢！！！