plot.bootstrap {equate} | R Documentation |
Plotting Bootstrap Equating Results
Description
This function plots bootstrap equating results for objects of class
“bootstrap
”.
Usage
## S3 method for class 'bootstrap'
plot(
x,
add = FALSE,
out = "mean",
xpoints,
ypoints,
addident = TRUE,
identy,
identcol = 1,
rescale = c(0, 1),
xlab = "Total Score",
ylab,
col = rainbow(length(x$args)),
pch,
lty = 1,
subset,
morepars = NULL,
addlegend = TRUE,
legendtext,
legendplace = "bottomright",
...
)
Arguments
x |
output from the |
add |
logical, with default |
out |
character vector specifying the output to be plotted, either the
mean equated scores ( |
xpoints , ypoints |
optional vectors of the same length containing raw scores on forms X and Y, assuming a single group or equivalent groups design. |
addident |
logical, with default |
identy |
vector of y coordinates for plotting the identity line.
Defaults to the identity function when |
identcol |
color used for plotting the identity line. |
rescale |
intercept and slope, with default 0 and 1, used to rescale all lines before plotting. |
xlab , ylab , col , pch , lty |
graphical parameters passed to |
subset |
vector for subsetting the output when multiple equating
functions are included in |
morepars |
list of additional graphical parameters, excluding
|
addlegend |
logical, with default |
legendtext |
character vector of text to be passed to the |
legendplace |
placement of the legend. |
... |
further arguments passed to or from other methods, excluding graphical parameters. |
Details
Lines are plotted for the chosen output type, whether mean equated scores
across replications (out = "mean"
), standard errors (out =
"se"
), bias (out = "bias"
) or RMSE (out = "rmse"
). The result
is similar to that of plot.equate
.
Author(s)
Anthony Albano tony.d.albano@gmail.com
See Also
Examples
set.seed(122713)
neat.x <- freqtab(KBneat$x, scales = list(0:36, 0:12))
neat.y <- freqtab(KBneat$y, scales = list(0:36, 0:12))
eqargs <- list(m.t = list(type = "mean", method = "t"),
l.t = list(type = "lin", method = "t"),
c.t = list(type = "circ", method = "t"))
bootout <- bootstrap(x = neat.x, y = neat.y, args = eqargs,
reps = 20)
plot(bootout, out = "se", legendplace = "top")