SEG risk grade table

Usage

seg_risk_grade_tbl(risk_vars)

Arguments

risk_vars: output from seg_risk_vars()

Value

risk grade 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_grade_tbl(risk_cols_tbl)
#> # A tibble: 5 × 5
#>      ID `Risk Grade` `Number of Pairs` Percent `Risk Factor Range`
#>   <dbl> <chr>                    <int> <chr>   <chr>              
#> 1     1 A                         9474 96%     0 - 0.5            
#> 2     2 B                          349 3.5%    > 0.5 - 1.0        
#> 3     3 C                           35 0.4%    > 1.0 - 2.0        
#> 4     4 D                           10 0.1%    > 2.0 - 3.0        
#> 5     5 E                           NA NA      > 3.0