svg("R-car_stopping_distances_1920.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)
# lines(lowess(speed.kph, dist.m, f = 2/3, iter = 3), col = "red")
title(main = "Stopping distances of cars from the 1920s")
dev.off()
Licensiering
Public domainPublic domainfalsefalse
Jag, upphovsrättsinnehavaren till detta verk, släpper detta verk i public domain. Detta gäller globalt. I vissa länder kan detta inte vara juridiskt möjligt; i så fall: Jag ger härmed envar rätten att använda detta verk för alla ändamål, utan några villkor, förutom villkor som lagen ställer.
{{Information |Description=A simple graph of car stopping distances |Source=Generated from the "cars" dataset in the R statistical package |Date=2008-12-13 |Author= HYanWong |Permission= |other_versions= }} {{Created with R}} from <pre>