File:R-car stopping distances 1920+bootstrap1000.svg
Size of this PNG preview of this SVG file: 360 × 360 pixels. Other resolutions: 240 × 240 pixels | 480 × 480 pixels | 768 × 768 pixels | 1,024 × 1,024 pixels | 2,048 × 2,048 pixels.
Original file (SVG file, nominally 360 × 360 pixels, file size: 1.4 MB)
 |
This is a file from the Wikimedia Commons |
Summary
| Description |
English:
svg("R-car_stopping_distances_1920+bootstrap1000.svg", 4,4,8)
speed.kph <- cars$speed*1.609344
dist.m <- cars$dist*0.3048
plot(speed.kph, dist.m, xlab = "Speed (km/h)", ylab = "Stopping distance (m)", las = 1, main = "Stopping distances of cars from the 1920s
(true lowess line in red, 1000 resampling attempts in blue)`")
replicate(1000, lines(lowess(sample(speed.kph, replace=TRUE), sample(dist.m, replace=T), f = 2/3, iter = 3), col=rgb(0,0,1,0.1))) -> dummy
lines(lowess(speed.kph, dist.m, f = 2/3, iter = 3), col="red")
dev.off() |
| Date | |
| Source | Own work |
| Author | HYanWong |
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 | 18:16, 14 November 2008 | | 360 × 360 (1.4 MB) | HYanWong | {{Information |Description={{en|1={{Created with R}} <pre>svg("R-car_stopping_distances_1920+bootstrap1000.svg", 4,4,8) speed.kph <- cars$speed*1.609344 dist.m <- cars$dist*0.3048 plot(speed.kph, dist.m, xlab = "Speed (km/h)", ylab = "Stopping distance (m |
File usage
The following page uses this file:
