SIU decision-timing distributions

Day-delta distributions for the three SIU process intervals:

Incident -> SIU notified

From date_of_incident_iso to date_siu_notified_iso.

Notified -> director's decision

From date_siu_notified_iso to date_of_director_decision_iso.

Incident -> decision (total)

The end-to-end interval.

Usage

morie_siu_decision_timing(data = NULL)

Arguments

data

Either a data frame (e.g. the output of morie_fetch_siu() read in) or a path to SIU_by_case.csv. NULL (the default) looks in file.path(tempdir(), "morie", "siu", "SIU_by_case.csv").

Value

A morie_rich_result list.

Examples

df <- data.frame(
  date_of_incident_iso = c("2022-01-05", "2023-02-18", "2024-03-01"),
  date_siu_notified_iso = c("2022-01-06", "2023-02-19", "2024-03-02"),
  date_of_director_decision_iso = c("2022-08-01", "2023-09-10", "2024-09-01"))
r <- morie_siu_decision_timing(df)
r$tables[[1]]$rows
#> [[1]]
#> [[1]][[1]]
#> [1] "Incident -> SIU notified"
#> 
#> [[1]][[2]]
#> [1] 3
#> 
#> [[1]][[3]]
#> [1] "1.0"
#> 
#> [[1]][[4]]
#> [1] "1"
#> 
#> [[1]][[5]]
#> [1] "1"
#> 
#> [[1]][[6]]
#> [1] "1"
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] "Notified -> director's decision"
#> 
#> [[2]][[2]]
#> [1] 3
#> 
#> [[2]][[3]]
#> [1] "197.7"
#> 
#> [[2]][[4]]
#> [1] "203"
#> 
#> [[2]][[5]]
#> [1] "183"
#> 
#> [[2]][[6]]
#> [1] "207"
#> 
#> 
#> [[3]]
#> [[3]][[1]]
#> [1] "Incident -> decision (total)"
#> 
#> [[3]][[2]]
#> [1] 3
#> 
#> [[3]][[3]]
#> [1] "198.7"
#> 
#> [[3]][[4]]
#> [1] "204"
#> 
#> [[3]][[5]]
#> [1] "184"
#> 
#> [[3]][[6]]
#> [1] "208"
#> 
#>