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