library(evd)
par(mfrow=c(3,1))
plot(function(x)dgumbel(x),-4,10, main = "Extremwertverteilungsdichten: Gumbel(scale=1,2) und eine N(0,1)",ylab="",ylim=c(0,0.6))
plot(function(x)dnorm(x), -4, 10,lty=3, add=TRUE)
plot(function(x)dgumbel(x,loc=0,scale=2),-4,10,ylab="",add=TRUE)
plot(function(x)dfrechet(x),0,10, main = "Extremwertverteilungsdichten: Frechet",ylab="",ylim=c(0,0.6))
plot(function(x)dweibull(x,shape=1),0,10, main = "Extremwertverteilungsdichten: Weibull (shape=0.5,1,2)",ylab="",ylim=c(0,1))
plot(function(x)dweibull(x,shape=2),0,10, ylab="",ylim=c(0,1),add=TRUE)
plot(function(x)dweibull(x,shape=0.5),0,10, ylab="",ylim=c(0,1),add=TRUE)