R/lav_graphics.R

In nietsnel/psindex: Parameter Stability Index

# small functions to do something useful with the common
# plot commands

# suggested by JEB
pairs.psindex <- function(x, group=1L, ...) {
        X <- x@Data@X[[group]]
        colnames(X) <- x@Data@ov.names[[group]]
        pairs(X, ...)
}