25 lines
482 B
R
25 lines
482 B
R
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()
|
|
)
|
|
|
|
|
|
|