Length of stay in days

stay.R

library(tidyverse)
library(lubridate)

#Make fake data
dates2019 <- seq(ymd('2019-01-01'), ymd('2019-12-31'), by ='1 week')
dates2020 <- seq(ymd('2020-01-01'), ymd('2020-12-31'), by ='1 week')

admission <- sample(dates2019, size = 10)
discharge <- sample(dates2020, size = 10)

hospital_stays<-tibble(admission = admission, discharge = discharge)

#Calciulate duration in days
hospital_stays %>% 
  mutate(len_of_stay = as.numeric(discharge - admission, unit = 'days'))