elizabethriddle

# Import data and transform to unix epoch
occupancy_df <- read_csv("~/Documents/MRes/occupancy_df.csv")
occupancy_df$spell.start_sec<-as.numeric(as.POSIXct(occupancy_df$spell.start))
occupancy_df$spell.end_sec<-as.numeric(as.POSIXct(occupancy_df$spell.end))

# Filter to only have medical
occupancy_df_medical <- occupancy_df[occupancy_df$Specialty.Group=='Medical',]
occupancy_df_medical <- occupancy_df_medical[!is.na(occupancy_df_medical$Specialty.Group),]