powered by
Poverty
str(Poverty) attach(Poverty) plot(Crime,Poverty) model <- lm(Poverty~Crime) abline(model) summary(model) detach(Poverty) remove(model)
Run the code above in your browser using DataLab