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