SEG risk category table

Usage

seg_risk_cat_tbl(risk_vars)

Arguments

risk_vars: output from seg_risk_vars()

Value

risk cat variable table

Examples

test_data <- vroom::vroom(
                system.file("extdata", "VanderbiltComplete.csv",
                package = "segtools"), delim = ",")
#> Rows: 9891 Columns: 2
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","
#> dbl (2): BGM, REF
#> 
#> ℹ Use `spec()` to retrieve the full column specification for this data.
#> ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
risk_cols_tbl <- seg_risk_vars(df = test_data)
seg_risk_cat_tbl(risk_cols_tbl)
#> # A tibble: 8 × 4
#>   `SEG Risk Level` `SEG Risk Category` `Number of Pairs` Percent
#>              <dbl> <chr>                           <int> <chr>  
#> 1                0 None                             9474 96%    
#> 2                1 Slight, Lower                     294 3%     
#> 3                2 Slight, Higher                     55 0.6%   
#> 4                3 Moderate, Lower                    24 0.2%   
#> 5                4 Moderate, Higher                   11 0.1%   
#> 6                5 Severe, Lower                      10 0.1%   
#> 7                6 Severe, Upper                      NA NA     
#> 8                7 Extreme                            NA NA