Testing print.four.plots.per.page

printFourPlotsPerPageTest.R

library(granovaGG)

# Explicitly printing four plots per page
pdf(file="~/Desktop/BrianTest1.pdf", onefile = TRUE)
data(rat)
fake.contrasts <- matrix(c(1, 1, 1, -1, -1, -1, -1, 1, 0, -1, 1, 0, 1, 1, -2, 
                 1, 1, -2, -1, 1, 0, 1, -1, 0, 1, 1, -2, -1, -1, 2), ncol = 5)
fake.contrasts <- fake.contrasts[ ,1:3]

granovagg.contr(data = rat[ ,1],
                contrasts = fake.contrasts,
                print.four.plots.per.page = TRUE
)
""
dev.off()

# Setting print.four.plots.per.page to FALSE
pdf(file="~/Desktop/BrianTest2.pdf", onefile = TRUE)
granovagg.contr(data = rat[ ,1],
                contrasts = fake.contrasts,
                print.four.plots.per.page = FALSE
)
dev.off()
sessionInfo()