File:R-car stopping distances 1920+quadratic.svg
Size of this PNG preview of this SVG file: 720 × 360 pixels. Other resolutions: 320 × 160 pixels | 640 × 320 pixels | 1,024 × 512 pixels | 1,280 × 640 pixels | 2,560 × 1,280 pixels.
Original file (SVG file, nominally 720 × 360 pixels, file size: 107 KB)
 |
This is a file from the Wikimedia Commons |
Summary
| Description |
English: A simple graph of car stopping distances, with a simple quadratic (zero intercept) fit and residual plot |
| Date | |
| Source | Own work |
| Author | HYanWong |
using the following commands
svg("R-car_stopping_distances_1920+quadratic.svg", 8,4,8)
layout(t(1:2))
par(mar=c(5, 4, 1, 2) + 0.1)
cars$speed.kph <- cars$speed*1.609344
cars$dist.m <- cars$dist*0.3048
plot(dist.m ~ speed.kph, data=cars, xlab = "Speed (km/h)", ylab = "Stopping distance (m)", las = 1)
quad.model <- lm(dist.m~I(speed.kph^2)-1, data=cars)
curve(quad.model$coef[1] * x^2, col="red", add=TRUE)
segments(cars$speed.kph, fitted.values(quad.model), cars$speed.kph,
fitted.values(quad.model)+residuals(quad.model), col="lightblue")
par(mar=c(5, 5, 1, 1) + 0.1)
plot(residuals(quad.model), type="h", ylim=c(-25,25), bty="n",
xaxt="n", las=2, xlab=NA, ylab="residual stopping distance (m)", col="lightblue")
grid(NA, NULL)
abline(h=0)
points(residuals(quad.model))
dev.off()
Licensing
|
I, the copyright holder of this work, release this work into the public domain. This applies worldwide. In some countries this may not be legally possible; if so: I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law. |
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 22:44, 19 January 2009 | | 720 × 360 (107 KB) | HYanWong | {{Information |Description={{en|1=A simple graph of car stopping distances, with a simple quadratic (zero intercept) fit and residual plot}} |Source=Own work by uploader |Author=HYanWong |Date=2008/12/13 |Permission= |other_versions= }} |
| 10:54, 13 December 2008 |  | 360 × 360 (60 KB) | HYanWong | {{Information |Description={{en|1=A simple graph of car stopping distances, with a simple quadratic (zero intercept) fit}} |Source=Own work by uploader |Author=HYanWong |Date=2008/12/13 |Permission= |other_versions= }} {{Created with R}} |
File usage
The following page uses this file:
