##################
### Aufgabe 25 ###
##################

A <- c(1.9, 0.8, 1.1, 0.1, -0.1, 4.4, 5.3, 1.6, 4.7, 3.4, -0.2, 1.5)
B <- c(0.7, -1.6, -0.2, -1.2, -0.1, 3.4, 3.7, 0.8, 0.0, 2.0, -1.2, 1.0)

1 - pbinom(9, size = 12, prob = 0.5)
1 - pbinom(5, size = 12, prob = 0.5)

mean(A)
sd(A)
mean(B)
sd(B)

t.test(A, alternative = "greater")
t.test(B, alternative = "greater") 