#------------------------#
#    Aufgabe 1c,d        #
#------------------------#

# W'keitsdichten in R gibt es mit der Syntax 
# 
#           dVert(x,Parameter) 
#
# und das Integral int_{-infty}^x Dichte(y)dy gibt 
# es mit der Syntax
#
#           pVert(x,Paramter)
#
# wobei Vert in { norm , unif , t , chisq , ...} 
# jeweils der R-Name der entsprechenden Verteilung 
# ist. 

# Zum Plotten nehmen wir mal den curve()-Befehl, 
# dieser Befehl moechte in der Syntax immer ein x 
# haben in dem Funktions-Argument, wessen Abhaengigkeit 
# geplottet werden soll:

curve( dnorm(x,mean=0,sd=1), from=-8, to=8 )   
curve( dnorm(x,mean=-3,sd=2), col="red", add=TRUE)
curve( dnorm(x,mean=2,sd=1/4), col="green", add=TRUE)

# ..die gruene Kurve ist nicht ganz auf dem Bild, 
# reskalieren wir etwas die y-Achse mit ylim:

curve( dnorm(x,mean=0,sd=1), from=-8, to=8, ylim = c(0,2) )   
curve( dnorm(x,mean=-3,sd=2), col="red", add=TRUE)
curve( dnorm(x,mean=2,sd=1/4), col="green", add=TRUE)    # ok, passt jetzt


# Aufg 1d)

curve( pnorm(x,mean=0,sd=1), from=-8, to=8 )   
curve( pnorm(x,mean=-3,sd=2), col="red", add=TRUE)
curve( pnorm(x,mean=2,sd=1/4), col="green", add=TRUE)

# ..und jetzt noch alles in einem Bild:

curve( dnorm(x,mean=0,sd=1), from=-8, to=8, ylim = c(0,2) )   
curve( dnorm(x,mean=-3,sd=2), col="red", add=TRUE)
curve( dnorm(x,mean=2,sd=1/4), col="green", add=TRUE)
curve( pnorm(x,mean=0,sd=1), add=TRUE )   
curve( pnorm(x,mean=-3,sd=2), col="red", add=TRUE)
curve( pnorm(x,mean=2,sd=1/4), col="green", add=TRUE)