# 5

# berechne Klassenstaerken
getKlStaerken <- function(x) {
	return (c(length(x[x <= qnorm(0.25)]),
	length(x[x > qnorm(0.25) & x <= qnorm(0.5)]),
	length(x[x > qnorm(0.5) & x <= qnorm(0.75)]),
	length(x[x > qnorm(0.75)])))
}

# Erwartungswert 0
chisq.test(getKlStaerken(rnorm(100, 0, 1)))

# Erwartungswert 0.1
chisq.test(getKlStaerken(rnorm(100, 0.1, 1)))

# Erwartungswert 0.5
chisq.test(getKlStaerken(rnorm(100, 0.5, 1)))

# Erwartungswert 1
chisq.test(getKlStaerken(rnorm(100, 1, 1)))