Create compliant pairs table

Usage

seg_binom_tbl(risk_vars)

Arguments

risk_vars: output from seg_risk_vars()

Value

Binomial test 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_binom_tbl(risk_cols_tbl)
#> # A tibble: 1 × 5
#>   `Compliant Pairs` `Compliant Pairs %` `Lower Bound for Acceptance`
#>               <int> <chr>                                      <dbl>
#> 1              9220 93.4%                                       9339
#> # ℹ 2 more variables: `Lower Bound for Acceptance %` <chr>, Result <chr>