# NOT RUN {
if (interactive()) {
g <- ggobi(mtcars)
d <- displays(g)[[1]]
}
# }
# NOT RUN {
pmode(d) <- "2D Tour"
ggobi_display_get_tour_projection(d)
variables(d) <- list(X=names(mtcars))
ggobi_display_get_tour_projection(d)
MASS::eqscplot(as.matrix(mtcars) %*% ggobi_display_get_tour_projection(d))
# }
Run the code above in your browser using DataLab