% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/api-shrinkage.R
\name{shrinkage_report}
\alias{shrinkage_report}
\title{Extract the shrinkage report from a fitted mfrm_fit}
\usage{
shrinkage_report(fit)
}
\arguments{
\item{fit}{An \code{mfrm_fit} object.}
}
\value{
A data.frame with one row per facet (and optionally
\code{"Person"}) or \code{NULL} when shrinkage has not been applied.
}
\description{
Lightweight accessor that returns the per-facet empirical-Bayes
shrinkage table stored on a fit when \code{facet_shrinkage != "none"}.
Returns \code{NULL} (with a message) when no shrinkage has been applied
so callers can probe without error.
}
\examples{
toy <- load_mfrmr_data("example_core")
fit <- fit_mfrm(toy, "Person", c("Rater", "Criterion"), "Score",
                method = "JML", maxit = 30,
                facet_shrinkage = "empirical_bayes")
shrinkage_report(fit)
}
\seealso{
\code{\link[=apply_empirical_bayes_shrinkage]{apply_empirical_bayes_shrinkage()}}, \code{\link[=fit_mfrm]{fit_mfrm()}}.
}
