powered by
Data for Exercise 2.2 and 2.38
Precinct
A data frame with 8 observations on the following 2 variables.
rate
a numeric vector
income
# NOT RUN { 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