powered by
Precinct
str(Precinct) attach(Precinct) plot(rate,income,main="Exercise 2.2") model <- lm(income~rate) model abline(model,col="green") detach(Precinct)
Run the code above in your browser using DataLab