# TODO: Make nice
# TODO: Additional function to loop through all items
PlotCompare2 <- function(exp, item, plot = NULL, interactive = F, cex = 1) {
# if (sub == F) {
# if (missing(plot) == T) {
# par(mfrow = c(1, 2), cex = cex, oma = c(0, 0, 0, 0), cex = 1)
# if (interactive == T) par(ask = T)
# } else {
# tmp <- unlist(strsplit(plot, "\\."))
# if (tmp[length(tmp)] == "pdf") {
# pdf(plot, width = 16, height = 8.5)
# par(mfrow = c(1, 1), cex = cex, oma = c(1, 0, 2, 0))
# } else if (tmp[length(tmp)] == "png") {
# png(plot, width = 2000, height = 1000)
# par(mfrow = c(1, 1), cex = cex, oma = c(1, 0, 2, 0))
# }
# }
# }
par(mfrow = c(1, 2), oma = c(0, 0, 0, 0))
PlotStimulus2(exp, item, sub = T)
# PlotImage(exp, item, sub = T)
plot(exp$setup$stimulus$images$image[[item]])
# # turn off device
# if (missing(plot) == F) {
# dev.off()
# } else {
# par(mfrow = c(1, 1), cex = 1, oma = c(0, 0, 0, 0))
# if (interactive == T) par(ask = F)
# }
}
# PlotCompare2(exp, 8)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.