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