powered by
Correlat
str(Correlat) attach(Correlat) plot(X,Y) model <- lm(Y~X) abline(model) detach(Correlat)
Run the code above in your browser using DataLab