View source: R/api-bias-collection.R
| estimate_all_bias | R Documentation |
Estimate bias across multiple facet pairs
estimate_all_bias(
fit,
diagnostics = NULL,
pairs = NULL,
include_person = FALSE,
drop_empty = TRUE,
keep_errors = TRUE,
max_abs = 10,
omit_extreme = TRUE,
max_iter = 4,
tol = 0.001
)
fit |
Output from |
diagnostics |
Optional output from |
pairs |
Optional list of facet specifications. Each element should be a
character vector of length 2 or more, for example
|
include_person |
If |
drop_empty |
If |
keep_errors |
If |
max_abs |
Passed to |
omit_extreme |
Passed to |
max_iter |
Passed to |
tol |
Passed to |
This function orchestrates repeated calls to estimate_bias() across
multiple facet pairs and returns a consolidated bundle.
Bias/interaction in MFRM refers to a systematic departure from
the additive model for a specific combination of facet elements
(e.g., a particular rater is unexpectedly harsh on a particular
criterion). See estimate_bias() for the mathematical formulation.
When pairs = NULL, the function builds all 2-way combinations of
modelled facets automatically. For a model with facets Rater,
Criterion, and Task, this yields Rater\timesCriterion,
Rater\timesTask, and Criterion\timesTask.
The summary table aggregates results across pairs:
Rows: number of interaction cells estimated
Significant: count of cells with |t| \ge 2
MeanAbsBias: average absolute bias magnitude (logits)
Per-pair failures (e.g., insufficient data for a sparse pair) are
captured in errors rather than stopping the entire batch.
A named list with class mfrm_bias_collection.
The returned object is a bundle-like list with class
mfrm_bias_collection and components such as:
summary: one row per requested interaction
by_pair: named list of successful estimate_bias() outputs
errors: per-pair error log
settings: resolved execution settings
primary: first successful bias bundle, useful for downstream helpers
Fit with fit_mfrm() and diagnose with diagnose_mfrm().
Run estimate_all_bias() to compute app-style multi-pair interactions.
Pass the resulting by_pair list into reporting_checklist() or
facet_quality_dashboard().
estimate_bias(), reporting_checklist(), facet_quality_dashboard()
toy <- load_mfrmr_data("example_core")
fit <- fit_mfrm(toy, "Person", c("Rater", "Criterion"), "Score",
method = "JML", maxit = 25)
diag <- diagnose_mfrm(fit, residual_pca = "none")
bias_all <- estimate_all_bias(fit, diagnostics = diag)
bias_all$summary[, c("Interaction", "Rows", "Significant")]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.