File:R-car stopping distances 1920-plain.svg

English: Example used in the wikibook Statistical_Analysis:_an_Introduction_using_R, generated by

> svg("R-car_stopping_distances_1920-plain.svg", 4,4,8)
> plot(dist ~ speed, data=cars)                     #It is easy to do a simple plot!
> smooth.line <- lowess(cars$speed, cars$dist)      #The "lowess" function fits a LOcally WEighted Scatterplot Smoother
> lines(smooth.line, col="red")                     #"lines" adds lines to a plot, here the lowess (smooth-line) fit
> straight.line.model <- lm(dist~speed, data=cars)  #This creates and stores a model ("lm" means "Linear Model").
> abline(straight.line.model, col="red", lty=3)     #abline is a simple function that plots a straight line
> dev.off()