3 Let’s try it!

Question: Have you been hearing all of the news about corduroy pillows?

Answer:

They’re making head lines!

Question: How was this plot made?

Answer:

sim_data <- data.frame(x = rnorm(100))
sim_data$y <- rnorm(100, mean = sim_data$x + 1)
plot(y ~ x, sim_data)