# 两个变量选择库## AICfitaic - stepAIClmfit direction = bothsummaryfitaic## BICk - lognrowBoston2fitbic - stepAIClmfit direction = both k = ksummaryfitbiclibraryggplot2

ggplot(data = Boston2, aes(x = lstat, y = medv)) + geom_point() + geom_smooth(method = "lm", se = FALSE, color = "red") + labs(x = "lstat", y = "medv", title = "Linear Regression")