# NOT RUN {
par(mfrow = c(1, 2))
plot(`per capita income` ~ `percent high school`, data = Indian,
xlab = "Percent high school graudates", ylab = "Per capita income")
plot(`poverty rate` ~ `percent high school`, data = Indian,
xlab = "Percent high school graudates", ylab = "Percent poverty")
par(mfrow = c(1, 1))
# }
Run the code above in your browser using DataLab