cs112 13.1

left.panel <- c(23, 18, 14, 10, 11, 10, 9, 10, 10, 9)
par(mfrow = c(1,2))
plot(x = c(1:10), left.panel, type = "l", lty = 1, lwd = 3,
     ylim = c(5, 25), ylab = "mean squared error", xlab = "degree of polynomial")
plot(x = c(1:10), left.panel, type = "l", lty = 1, lwd = 3,
     ylim = c(5, 25), ylab = "mean squared error", xlab = "degree of polynomial")

for(i in 1:6) {
  lines(x = c(1:10), y = jitter(left.panel, 10), col = i)
}

#INTENTIONALLY AMBIGUOUS FIGURES
dev.off()
left.panel.bad <- c(rep(15, 10))
left.panel.bad.j <- jitter(left.panel.bad, 15)
par(mfrow = c(1,2))
plot(x = c(1:10), left.panel.bad.j, type = "l", lty = 1, lwd = 3,
     ylim = c(5, 25), ylab = "mean squared error", xlab = "degree of polynomial")
plot(x = c(1:10), left.panel.bad.j, type = "l", lty = 1, lwd = 3,
     ylim = c(5, 25), ylab = "mean squared error", xlab = "degree of polynomial")

for(i in 1:6) {
  lines(x = c(1:10), y = jitter(left.panel.bad, 14), col = i)
}