powered by
Books
str(Books) attach(Books) plot(book, spelling) model <- lm(spelling~book) abline(model) summary(model) detach(Books) rm(model)
Run the code above in your browser using DataLab