if (FALSE) {
# \donttest{
# Scaled object
p_scaled <- plot(scaled_obj) # item retention + quality histogram
# Misfit object
p_mf <- plot(misfit_obj) # per-statistic counts + overall ratio
# Cleaned object
p_cl <- plot(clean_obj) # remaining vs removed persons
# Add ggplot2 options through '...'
plot(misfit_obj, alpha = 0.8)
# }
}
Run the code above in your browser using DataLab