% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/btl-equating.R
\name{plot_btl_equate}
\alias{plot_btl_equate}
\title{Plot a paired-comparison equating comparison}
\usage{
plot_btl_equate(fit1, fit2, ...)
}
\arguments{
\item{fit1}{A fitted object from \code{\link{btl}}.}

\item{fit2}{A second \code{\link{btl}} fit, or a bank data frame with columns
\code{object}, \code{location}, and optionally \code{se}.}

\item{...}{Passed to \code{\link{btl_equate}} (e.g. \code{alpha},
\code{p_adjust}).}
}
\value{
Called for its plotting side effect; invisibly the
  \code{\link{btl_equate}} result.
}
\description{
Scatter of the two calibrations' common-object locations with the shifted
identity line, per-object 95 per cent error bars, and a dotted guide band
at the average pooled precision; objects that drift (after
the multiplicity adjustment) are highlighted and labelled. The counterpart
of \code{\link{plot_equate}} for Bradley-Terry-Luce scales.
}
\examples{
set.seed(1)
beta <- setNames(seq(-2, 2, length.out = 8), paste0("O", 1:8))
sim <- function(objs) {
  pr <- t(utils::combn(objs, 2))
  d <- data.frame(a = rep(pr[, 1], each = 40), b = rep(pr[, 2], each = 40))
  d$win <- ifelse(runif(nrow(d)) < plogis(beta[d$a] - beta[d$b]), d$a, d$b)
  btl(d, "a", "b", "win")
}
plot_btl_equate(sim(paste0("O", 1:7)), sim(paste0("O", 2:8)))
}
