R/PlotCompare2.R

In sascha2schroeder/popEye: Analysis of eye-tracking data from reading experiments

# 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)