x <- seq(from= -4, to = 4, by = 0.1) # Werte von -4 bis 4 im Abstand von 0.1 
dichtefunktion<-dnorm(x) #Dichtefunktion
verteilungsfunktion<-pnorm(x) # Verteilungsfunktion

plot(x,dichtefunktion, main = "Dichtefunktion", 
     type = "l") # type =l -> Linie ziehen

plot(x,verteilungsfunktion, main = "Verteilungsfunktion",
     type = "l")# type =l -> Linie ziehen