IEU P1 QQ3 gantt chart

library(readxl)
library(lubridate)
library(dplyr)

dat <- readxl::read_xlsx("~/University\ of\ Bristol/grp-IEU\ Programme\ Leads\ -\ Documents/QQR/Work\ in\ progress/Programme\ 1/gantt\ -\ IEU\ 3.0\ P1.xlsx") %>%
  select(-c("Assigned To"))
dat

How many FTEs per year

dat$`Start Date` <- ymd(dat$`Start Date`)
dat$`End Date` <- ymd(dat$`End Date`)

spend <- sapply(c(
  interval(ymd("2023-04-01"), ymd("2024-03-31")),
  interval(ymd("2024-04-01"), ymd("2025-03-31")),
  interval(ymd("2025-04-01"), ymd("2026-03-31")),
  interval(ymd("2026-04-01"), ymd("2027-03-31")),
  interval(ymd("2027-04-01"), ymd("2028-03-31"))
), function(i)
  {
  {intersect(interval(dat$`Start Date`, dat$`End Date`), i) %>% as.duration() %>% sum(na.rm=T) %>% seconds_to_period() %>% day()}
})

sum(spend) / 365

[1] 53.18082

spend / 365

[1] 10.150685 13.857534 13.101370 10.545205  5.526027