Analyze Simaerep
Analyze_Simaerep.RdCalculate over and under-reporting probabilities for numerator denominator ratio using simaerep::simaerep().
Uses inframe simaerep method and does not apply multiplicity correction as per latest recommendations.
The sum of under- and over reporting probability per group is usually zero, however simaerep::simaerep()
adjusts edge cases in which group ratio and expected ratio are all zero. We combine both metrics into a score
between 0 and 1, where 0 is under-reporting and 1 is over-reporting.
Arguments
- dfInput
data.frameas returned byInput_CumCount()- r
Integer or tbl_object, number of repetitions for bootstrap simulation. Pass a tbl object referring to a table with one column and as many rows as desired repetitions. Default: 1000.
Value
data.frame with the following specification:
| Column Name | Description | Type |
| GroupID | The group ID | Character |
| GroupLevel | The group level | Character |
| Numerator | Numerator events | Numeric |
| Denominator | Denominator events | Numeric |
| Metric | Ratio all subjects in GroupID | Numeric |
| Score | Reporting Score | Numeric |
| ScoreMult | Reporting Score with Multiplicity Correction | Numeric |
| ExpectedNumerator | Count of Expected Numerator Events | Numeric |
Examples
# {clindata} Example for cumulative AE per Visit Count
dfInput <- Input_CumCount(
dfSubjects = clindata::rawplus_dm,
dfNumerator = clindata::rawplus_ae,
dfDenominator = clindata::rawplus_visdt %>% dplyr::mutate(visit_dt = lubridate::ymd(visit_dt)),
strSubjectCol = "subjid",
strGroupCol = "siteid",
strGroupLevel = "Site",
strNumeratorDateCol = "aest_dt",
strDenominatorDateCol = "visit_dt"
)
Analyze_Simaerep(dfInput)
#> # A tibble: 176 × 8
#> GroupID GroupLevel Numerator Denominator Metric Score ScoreMult
#> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 10 Site 8 390 0.0205 -1 -1
#> 2 100 Site 6 41 0.146 0.541 0
#> 3 101 Site 4 64 0.0625 -0.806 -0.258
#> 4 102 Site 8 69 0.116 -0.642 -0.0734
#> 5 103 Site 8 86 0.0930 -0.762 -0.238
#> 6 104 Site 25 182 0.137 -0.625 -0.0571
#> 7 105 Site 24 65 0.369 0.959 0.576
#> 8 106 Site 7 69 0.101 -0.677 -0.112
#> 9 107 Site 14 63 0.222 0.734 0.104
#> 10 109 Site 8 89 0.0899 -0.77 -0.238
#> # ℹ 166 more rows
#> # ℹ 1 more variable: ExpectedNumerator <dbl>