% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/equating.R
\name{plot_equate}
\alias{plot_equate}
\title{Plot a test-equating comparison}
\usage{
plot_equate(fit, reference, shift = c("mean", "none"))
}
\arguments{
\item{fit}{A fitted object from \code{\link{rasch}}.}

\item{reference}{A second \code{\link{rasch}} fit, or a data frame with
columns \code{item}, \code{location}, and optionally \code{se}.}

\item{shift}{Passed to \code{\link{equate_tests}}.}
}
\value{
Called for its plotting side effect; invisibly the
  \code{\link{equate_tests}} result.
}
\description{
Scatter of the two calibrations' common-item locations with the shifted
identity line and per-item 95 per cent bands; drifting items
(BH-adjusted) are highlighted and labelled.
}
\examples{
set.seed(1); d <- seq(-1.5, 1.5, length.out = 8)
mk <- function() {
  X <- matrix(rbinom(400 * 8, 1, plogis(outer(rnorm(400), d, "-"))), 400, 8)
  colnames(X) <- paste0("I", 1:8); rasch(X)
}
plot_equate(mk(), mk())
}
