Summarize approximate plausible values from fixed-calibration scoring

Summarize approximate plausible values from fixed-calibration scoring

Usage

# S3 method for class 'mfrm_plausible_values'
summary(object, digits = 3, ...)

Arguments

object

Output from sample_mfrm_plausible_values().

digits

Number of digits used in numeric summaries.

...

Reserved for generic compatibility.

Value

An object of class summary.mfrm_plausible_values with:

• draw_summary: empirical summaries of the sampled values by person

• estimates: companion posterior EAP summaries

• audit: row-preparation audit

• settings: scoring settings

• notes: interpretation notes

See also

sample_mfrm_plausible_values()

Examples

toy <- load_mfrmr_data("example_core")
keep_people <- unique(toy$Person)[1:18]
toy_fit <- suppressWarnings(
  fit_mfrm(
    toy[toy$Person %in% keep_people, , drop = FALSE],
    "Person", c("Rater", "Criterion"), "Score",
    method = "MML",
    quad_points = 5,
    maxit = 15
  )
)
new_units <- data.frame(
  Person = c("NEW01", "NEW01"),
  Rater = unique(toy$Rater)[1],
  Criterion = unique(toy$Criterion)[1:2],
  Score = c(2, 3)
)
pv <- sample_mfrm_plausible_values(toy_fit, new_units, n_draws = 3, seed = 1)
summary(pv)
#> $draw_summary
#> # A tibble: 1 × 6
#>   Person Draws MeanValue SDValue LowerValue UpperValue
#>   <chr>  <dbl>     <dbl>   <dbl>      <dbl>      <dbl>
#> 1 NEW01      3         0       0          0          0
#> 
#> $estimates
#> # A tibble: 1 × 7
#>   Person Estimate    SD Lower Upper Observations WeightedN
#>   <chr>     <dbl> <dbl> <dbl> <dbl>        <dbl>     <dbl>
#> 1 NEW01    -0.097 0.648 -1.36  1.36            2         2
#> 
#> $audit
#> # A tibble: 1 × 7
#>   InputRows KeptRows DroppedRows DroppedMissing DroppedBadScore DroppedBadWeight
#>       <dbl>    <dbl>       <dbl>          <dbl>           <dbl>            <dbl>
#> 1         2        2           0              0               0                0
#> # ℹ 1 more variable: DroppedNonpositiveWeight <dbl>
#> 
#> $settings
#> $settings$interval_level
#> [1] 0.95
#> 
#> $settings$n_draws
#> [1] 3
#> 
#> $settings$quad_points
#> [1] 5
#> 
#> $settings$seed
#> [1] 1
#> 
#> $settings$method
#> [1] "MML"
#> 
#> $settings$source_columns
#> $settings$source_columns$person
#> [1] "Person"
#> 
#> $settings$source_columns$facets
#> [1] "Rater"     "Criterion"
#> 
#> $settings$source_columns$score
#> [1] "Score"
#> 
#> $settings$source_columns$weight
#> NULL
#> 
#> 
#> 
#> $notes
#> [1] "These draws are sampled from the fixed quadrature-grid posterior under the existing MML calibration."                  
#> [2] "Use them as approximate plausible-value summaries for posterior uncertainty, not as deterministic future truth values."
#> 
#> attr(,"class")
#> [1] "summary.mfrm_plausible_values"