View source: R/plot.bootstrap.R
plot.bootstrap | R Documentation |
This function plots bootstrap equating results for objects of class
“bootstrap
”.
## 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", ... )
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. |
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
.
Anthony Albano tony.d.albano@gmail.com
bootstrap
, plot.equate
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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.