# 3

# Daten einlesen
data <- scan("E:\\alter.txt")

# Stichprobenumfang bestimmen
n <- length(data)

# Teststatistik berechnen
T <- length(data[data <= 25])
print("Teststatistik:")
print(T)

# Quantil bestimmen
q <- qbinom(0.05, n, 0.5)
print("Quantil:")
print(q)

# Testentscheidung
if (T <= q) {
	print("H0 wird abgelehnt")
} else {
	print("H0 wird nicht abgelehnt")
}