En este caso la funcion dnorm() combinada con plot() y points() parece
hacer lo que necesitas:

x <- seq(-5, 8, length = 1000)
plot(x, dnorm(x, 0, 1), type = 'l', col = 4, lwd = 2, las = 1, ylab =
'Densidad', xlab = 'Valores de X')
points(x, dnorm(x, 3, 1), type = 'l', col = 1, lty = 2)
legend('topleft', c(expression(N(mu*"="*0, sigma*"="*1)),
expression(N(mu*"="*3, sigma*"="*1))), bty = 'n', text.col = c(4, 1))

Jorge.-


2012/5/21 tono ferri vidal <>

>
> Hola
>
> Alguien me puede ayudar? Necesito graficar 2 funciones de
> densidad "normales" superpuestas en un unico grafico.
>
> una densidad es de media 0 y desviacion 1,
> la otra es de media 3 y desviacion 1.
>
> saludos
>
>        [[alternative HTML version deleted]]
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

	[[alternative HTML version deleted]]

