# 1. 
prop.test(12, 50, 1/6)
# Nein.

2
# (a)
attach(glottal)
table(geschlecht, verschluss)

# (b)
tab = table(geschlecht, verschluss)
barplot(tab, beside=T, legend=T)

# (c)
chisq.test(tab)
# X-squared = 2.4037, df = 2, p-value = 0.3006
# Nein.