powered by
Submarin
str(Submarin) attach(Submarin) plot(reported,actual) model <- lm(actual~reported) abline(model) anova(model) summary(model) detach(Submarin)
Run the code above in your browser using DataLab