Nothing
# small functions to do something useful with the common
# plot commands
# suggested by JEB
pairs.lavaan <- function(x, group = 1L, ...) {
X <- x@Data@X[[group]]
colnames(X) <- x@Data@ov.names[[group]]
pairs(X, ...)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.