我想看看与出院时间有关的预测准确性。
例如,我认为史密斯先生将在3-7天内出院,这意味着他可能在11/9-11/13的任何一天都是正确的。如果他在2天内出院,我会说我休息1天,如果他在10天内出院,我就休息3天.
使用dplyr、基本R和lubridate有什么好的方法来做到这一点?蒂娅。示例数据位于链接处:
发布于 2020-11-06 15:55:33
一个可能的解决方案是在case_when中表达您的需求。
library(dplyr) 
df %>%
  dplyr::mutate(DIF = case_when(discharge_calender_date < discharge_prediction_lower_bound ~ discharge_calender_date - discharge_prediction_lower_bound,
                                discharge_calender_date <= discharge_prediction_upper_bound ~ 0,
                                TRUE ~ discharge_calender_date - discharge_prediction_upper_bound))这样,如果病人在下界之前离开,则得到一个负值,如果他在预测中离开,则为零,如果他在预测之后离开,则得到一个正结果。
https://stackoverflow.com/questions/64717666
复制相似问题