#  A9
data <- data.frame(geschlecht=c(2,1,2,2,2,1,2,1,2,
                                2,2,1,1,1,2,1,1,1,1,1,2,2,2,
                                1,2,1,1,2,2,1),
                   mathenote=c(3,1,2,2,3,2,3,3,2,1,2,3,2,3,4,
                               2,2,1,2,3,1,1,3,1,
                               1,2,5,1,3,1))

# d
(hj <- table(data$mathenote))
(fj <- table(data$mathenote)/sum(table(data$mathenote)))
(Fj <- cumsum(fj))

# e
(hj_strat <- ftable(data$mathenote,data$geschlecht))

ecdf(data$mathenote)
plot(ecdf(data$mathenote))