Make a scatterplot of student_income vs. parent_income, making sure to plot the predictor variable on the x-axis and the response variable on the y-axis. What is the nature of the association between these variables (positive/negative/none)? Quantify the association with a Pearson correlation. ```{r} plot(school$parent_income, school$student_income, xlab = "Parent Income (log scale)", ylab = "Student Income (log scale)", main = "Scatterplot of Student Income vs. Parent Income", col = "skyblue", pch = 19) correlation <- cor(school$parent_income, school$student_income) ```