Archivo:Standard deviation diagram.svg

De Wikipedia, la enciclopedia libre
Saltar a: navegación, búsqueda
Standard_deviation_diagram.svg‎ ((Imagen SVG, nominalmente 400 × 200 pixels, tamaño de archivo: 14 KB))


Wikimedia Commons Logo Éste es un archivo de Wikimedia Commons, un depósito de contenido libre hospedado por la Fundación Wikimedia.
Más abajo se reproduce su página de descripción con la información sobre su origen y licencia.

[editar] Sumario

Descripción
English: Normal distribution curve that illustrates standard deviations
Fecha

7 de abril de 2007(2007-04-07)
Fuente

Trabajo propio, based (in concept) on figure by Jeremy Kemp, on 2005-02-09
Autor

Mwtoews
Permiso
(Reutilizando este archivo)		 Mirar abajo.
Otras versiones

  • with decimal comma

[editar] Figure source code

This figure was made in R using:

# # External package to generate four shades of blue
# library(RColorBrewer)
# cols <- rev(brewer.pal(4, "Blues"))
cols <- c("#2171B5", "#6BAED6", "#BDD7E7", "#EFF3FF")

# Sequence between -4 and 4 with 0.1 steps
x <- seq(-4, 4, 0.1)

# Plot an empty chart with tight axis boundaries, and axis lines on bottom and left
plot(x, type="n", xaxs="i", yaxs="i", xlim=c(-4, 4), ylim=c(0, 0.4),
     bty="l", xaxt="n", xlab="x-value", ylab="probability density")

# Function to plot each coloured portion of the curve, between "a" and "b" as a
# polygon; the function "dnorm" is the normal probability density function
polysection <- function(a, b, col, n=11){
    dx <- seq(a, b, length.out=n)
    polygon(c(a, dx, b), c(0, dnorm(dx), 0), col=col, border=NA)
    # draw a white vertical line on "inside" side to separate each section
    segments(a, 0, a, dnorm(a), col="white")
}

# Build the four left and right portions of this bell curve
for(i in 0:3){
    polysection(   i, i+1,  col=cols[i+1]) # Right side of 0
    polysection(-i-1,  -i,  col=cols[i+1]) # Left right of 0
}

# Black outline of bell curve
lines(x, dnorm(x))

# Bottom axis values, where sigma represents standard deviation and mu is the mean
axis(1, at=-3:3, labels=expression(-3*sigma, -2*sigma, -1*sigma, mu,
                                    1*sigma,  2*sigma,  3*sigma))

# Add percent densities to each division, between x and x+1
pd <- sprintf("%.1f%%", 100*(pnorm(1:4) - pnorm(0:3)))
text(c((0:3)+0.5,(0:-3)-0.5), c(0.16, 0.05, 0.04, 0.02), pd, col=c("white","white","black","black"))
segments(c(-2.5, -3.5, 2.5, 3.5), dnorm(c(2.5, 3.5)), c(-2.5, -3.5, 2.5, 3.5), c(0.03, 0.01))
Rlogo.png
 This chart was created with R.

[editar] Licencia:

w:es:Creative Commons
atribución		 Este archivo está disponible bajo la licencia Creative Commons Reconocimiento 2.5 Genérica.
Eres libre:
  • para compartir – para copiar, distribuir y transmitir el trabajo
  • a remezclar – para adaptar el trabajo
Bajo las siguientes condiciones:
  • atribución – Debes atribuir el trabajo de la manera especificada por el autor o persona que lo haya licenciado (pero no de manera que sugiera que estas personas te respaldan o respaldan el uso que hagas del trabajo).

Historial del archivo

Haz clic sobre una fecha/hora para ver el archivo a esa fecha.

Fecha y horaMiniaturaDimensionesUsuarioComentario
act11:08 7 abr 2007Miniatura de la versión de 11:08 7 abr 2007400 × 200 (14 KB)Petter Strandmark (== Summary == Standard deviation diagram, based an original graph by Jeremy Kemp, in 2005-02-09 [http://pbeirne.com/Programming/gaussian.ps]. This figure was started in R using: <pre> x <- seq(-4,4,.1) plot(x,dnorm(x),type)

La siguiente página enlaza a este archivo:

Uso de archivo global

Metadatos

Este archivo contiene información adicional (metadatos), probablemente añadida por la cámara digital, el escáner o el programa usado para crearlo o digitalizarlo. Si el archivo ha sido modificado desde su estado original, pueden haberse perdido algunos detalles.
Anchura 400
Altura 200
Obtenido de «http://es.wikipedia.org/wiki/Archivo:Standard_deviation_diagram.svg»
Herramientas personales
Espacios de nombres
Variantes
Vistas
Acciones
Navegación
Herramientas