Bild:Standard deviation diagram.svg
Wikipedia
Det finns ingen högupplöst version tillgänglig.
Standard_deviation_diagram.svg (400 × 200 pixlar, filstorlek: 14 kbyte, MIME-typ: image/svg+xml)
| Denna fil tillhandahålls av Wikimedia Commons. Informationen från filens beskrivningssida följer nedan. |
[edit] Beskrivning
[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 In short: you are free to distribute and modify the file as long as you attribute its author(s) or licensor(s). |
Bildlänkar
Följande sidor länkar till denna bild:
