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