Analyse Doob Affidavit Table 2 — prisoner flow

Renders Table 2 plus year-over-year changes and 5-year averages.

Usage

analyze_doob_table2_flow()

Value

A morie_result named-list.

Examples

res <- analyze_doob_table2_flow()
head(res$summary_lines)
#> [[1]]
#> [1] "Source"                              
#> [2] "CCRSO 2018, Doob Affidavit Exhibit B"
#> 
#> [[2]]
#> [1] "Average annual count (5-yr)" "14638.2"                    
#> 
#> [[3]]
#> [1] "Average annual admissions (5-yr)" "4881.2"                          
#> 
#> [[4]]
#> [1] "Average statutory releases / year (5-yr)"
#> [2] "5126.6"                                  
#> 
#> [[5]]
#> [1] "Average statutory releases / month" "427.2"                             
#> 
#> [[6]]
#> [1] "Doob's headline point"                                                                                                                     
#> [2] "About 427 statutory releases per month -- releasing prisoners 6 months early would empty ~17.5% of the penitentiary system in one tranche."
#>