R/callculate_processtime.R

In davidbaniadam/farver: Some Useful Function

#
# callculate_processtime <- function(df, Hospital, drg, time1, time2, time3, time4){
#
# hosp %>%
#   dplyr::mutate(foertid = as.numeric(difftime({{time2}}, {{time1}}, units="mins")),
#          knivtid = as.numeric(difftime({{time3}}, {{time2}}, units="mins")),
#          eftertid = as.numeric(difftime({{time4}}, {{time3}}, units="mins")),
#          samlet_tid = as.numeric(difftime({{time4}}, {{time1}}, units="mins"))) %>%
#  dplyr:: select({{Hospital}}, {{drg}}, foertid:samlet_tid) %>%
#  dplyr::group_by({{drg}}) %>%
#  tidyr::nest()
#
# }
#
# callculate_processtime(hosp, Hospital = Hospital, drg = drg,
#                        time1 = time11, time2 = time2, time3 = time3, time4 = time4)