# NOT RUN {
### (Not run by default because it's quite timeconsuming.)
tmp <- paginatedAsymmetricalScatterMatrix(infert, cols=c("parity"),
                                          rows=c("induced", "case",
                                                 "spontaneous", "age",
                                                 "pooled.stratum"),
                                          maxRows = 3,
                                          showCorrelations="top-right");
tmp$output$scatterMatrices[[1]];
# }
Run the code above in your browser using DataLab