###########
# Blatt 3 #
###########

#aufgabe 2

data(Animals)
attach(Animals)

Animals
?Animals

sort_brain<-sort(brain)
sort_body<-sort(body)
sort_body[23]
which(body == 529)
#oder which( body == sort_body[23])
Animals[12,]

which(rank(brain) == 3)
Animals[25,]
#kuerzer: Animals[which(rank(brain) == 3),]

ratio<- brain/body
#Bei Beachtung der Einheiten
#ratio<-brain/(body*1000)
sort(ratio)

#Auslesen oder
#Animals[which(rank(ratio)==1),]
#Animals[which(rank(ratio)==28),]

#Hase
12.1/2.5

#Rang 17, auslesen oder which(sort(ratio) == 12.1/2.5)


#aufgabe 4

?rbinom
?table
#a
sum(dbinom(8:10,10,0.5))

#b
x<-rbinom(1000,10,0.5)

#c
tab<-table(x)
barplot(tab, xlab ="Anzahl richtiger Treffer", ylab = "Anzahl Faelle", ylim = c(0,300))