#  A10
data <- read.csv2("2/studentenX.csv")
names(data) <- c("i","Name","Studiengang","AnzGeschw","Einkommen")

# b
hj_fach <- table(data$Studiengang)
fj_fach <- table(data$Studiengang)/sum(table(data$Studiengang))

barplot(fj_fach)

# c
hj_geschw <- table(data$AnzGeschw)
fj_geschw <- table(data$AnzGeschw)/sum(table(data$AnzGeschw))
Hj_geschw <- cumsum(hj_geschw)
Fj_geschw <- cumsum(fj_geschw)

pie(hj_geschw)

# d
Hj_geschw["2"]
1-Fj_geschw["1"]
fj_geschw["1"]+fj_geschw["2"]

# e
stem(data$Einkommen)