Densidades superpuestas

#####
# Densidades normales superpuestas
# secuencia de valores de -20 a 20; muestra de 100 números
x = seq(-20,20, length=100)

# media = 0 ; desviación estándar = 1
normal1 = dnorm(x,mean=0,sd=1)
plot(x,normal1, type='l', lwd=2, col='red', main='Funciones normales: Cambiando varianza')

# media = 0 ;  desviación estándar = 4
normal2 = dnorm(x,mean=0,sd=4)
lines(x,normal2,type='l',lwd=2, col='blue')

# media = 0 ; desviación estándar = 9
normal2 = dnorm(x,mean=0,sd=9)
lines(x,normal2,type='l',lwd=2, col='green')

#####
# secuencia de valores de -6 a 6; muestra de 100 números
y = seq(-6,6, length=100)

# media = 0 ; desviación estándar = 1
normal1 = dnorm(y,mean=0,sd=1)
plot(y,normal1, type='l', lwd=2, col='red', main='Funciones normales: Cambiando media')

# media = 1 ;  desviación estándar = 1
normal2 = dnorm(y,mean=1,sd=1)
lines(y,normal2,type='l',lwd=2, col='blue')

# media = 2 ; desviación estándar = 1
normal2 = dnorm(y,mean=2,sd=1)
lines(y,normal2,type='l',lwd=2, col='green')