#Dichte der Normalverteilung #Was macht die Funktion? ?dnorm #Plotten (a) #Graphik vergrößern par(cex=1.5) #x-Achsenabschnitt x<-seq(-3,4,0.1) #Plotten der ersten Funktion plot(x,dnorm(x,mean=1),main="Dichte der Normalverteilung",type="l",lwd=2,xlab="",ylab="") #Einfügen der zweiten in bestehende Grafik lines(x,dnorm(x),lty=2,lwd=2) #Alles ab hier wieder etwas kleiner par(cex=1.3) #Legende einfügen: legend(-3,0.4,c("mean=1","mean=0"),lty=c(1,2),lwd=2) #Alternative zum plotten der zwei ersten Beispiele (einzeln) curve(dnorm(x, mean = 1, sd = 1, log = FALSE),xlim=c(-2,4)) curve(dnorm(x, mean = 0, sd = 1, log = FALSE),xlim=c(-3,3),add=T,lty=2) #Plotten (b) analog par(cex=1.5) x<-seq(-2,5,0.1) plot(x,dnorm(x,mean=1),main="Dichte der Normalverteilung",type="l",lwd=2,xlab="",ylab="") lines(x,dnorm(x,mean=2),lty=2,lwd=2) par(cex=1.3) legend(-2,0.4,c("mean=1","mean=2"),lty=c(1,2),lwd=2) #Alternativ curve(dnorm(x, mean = 1, sd = 1, log = FALSE),xlim=c(-2,4)) curve(dnorm(x, mean = 2, sd = 1, log = FALSE),xlim=c(-1,5),add=T,lty=2) #Plotten (c) analog x<-seq(-5,7,0.1) par(cex=1.5) plot(x,dnorm(x,mean=1),main="Dichte der Normalverteilung",type="l",lwd=2,xlab="",ylab="") lines(x,dnorm(x,mean=1,sd=2),lty=2,lwd=2) par(cex=1.3) legend(-4,0.4,c("sd=1","sd=2"),lty=c(1,2),lwd=2) #Alternativ curve(dnorm(x, mean = 1, sd = 1, log = FALSE),xlim=c(-2,4)) curve(dnorm(x, mean = 1, sd = 2, log = FALSE),xlim=c(-5,7),add=T,lty=2)