###########
# Blatt 2 #
###########

#aufgabe 5

x<-rexp(10000, 2)

boxplot(x, pch = 19)

abline(h = quantile(x, 0.75) + 3*IQR(x))