library(tidyverse)

dsl_csv <-"~/dsl/121625_DSL_frame.csv"
dsl_df <- read.csv(dsl_csv, header = TRUE) 

dsl_df |>
  filter(week_index >= 4)|>
  filter(source == "c1") |>
  filter(priority == "Needs Triage")|>
  mutate(ttr_weeks = TTR_hours / 168) |>
  group_by(isAuthorWMF) |>
  summarise(
    mean_ttr = mean(ttr_weeks, na.rm = TRUE),
    sd_ttr = sd(ttr_weeks, na.rm = TRUE)
  )

triage <- dsl_df |>
  group_by(source, isAuthorWMF, priority)|>
  summarise(
    count = n()
  )