##################
### Aufgabe 30 ###
##################

A <- c(9.6, 9.7, 9.8, 9.9, 10.5, 10.6, 10.7, 10.8, 10.9)
B <- c(9.1, 9.2, 10.1, 10.2, 10.3, 10.4, 10.5, 10.6, 10.7)

# Wilcoxon-Test:
wilcox.test(A, alternative = "greater", mu = 10, exact = TRUE)
wilcox.test(B, alternative = "greater", mu = 10, exact = TRUE)

# Vorzeichentest:
TA <- sum((A - 10) > 0)
binom.test(TA, n = 9, p = 0.5, alternative = "greater")

TB <- sum((B - 10) > 0)
binom.test(TB, n = 9, p = 0.5, alternative = "greater")