Image:Standard deviation diagram.svg

From Wikipedia, the free encyclopedia

Image
File history
File links

No higher resolution available.

Standard_deviation_diagram.svg‎ (400 × 200 pixel, file size: 14 KB, MIME type: image/svg+xml)

[edit] Summary

Standard deviation diagram, based an original graph by Jeremy Kemp, in 2005-02-09 [1]. This figure was started in R using:

x <- seq(-4,4,.1)
plot(x,dnorm(x),type="n",xaxs="i",yaxs="i",ylim=c(0,.4),bty="l",xaxt="n")
polysection <- function(a,b,dist=dnorm,col="blue",n=11){
    dx <- seq(a,b,length.out=n)
    polygon(c(a,dx,b),c(0,dist(dx),0),border=NA,col=col)
}
library(RColorBrewer)
cols<-rev(brewer.pal(4,"Blues"))
for(i in 0:3){
    polysection(i,i+1,col=cols[i+1])
    polysection(-i-1,-i,col=cols[i+1])
}
sx <- -3:3
segments(sx,0,sx,dnorm(sx),col="white")
lines(x,dnorm(x))
axis(1,sx,sx)

It was then touched up in Adobe Illustrator.

[edit] Licensing

This file is licensed under Creative Commons Attribution 2.5 License.

File history

Legend: (cur) = this is the current file, (del) = delete this old version, (rev) = revert to this old version.
Click on date to download the file or see the image uploaded on that date.

(del) (cur) 21:47, 23 February 2007 . . Mwtoews (Talk | contribs) . . 400×200 (14,642 bytes) (Standard deviation diagram, based an original graph by Jeremy Kemp, in 2007-02-09 [http://pbeirne.com/Programming/gaussian.ps]. Figure was created in R, and Adobe Illustrator.)