x <- rnorm(99, 0, 0.5) + rexp(99, 0.1)

rg <- length(x[x <= 11])

if (rg > 95) {
	cat('rg =', rg, '=> H0 wird abgelehnt.\n')
} else {
	cat('rg =', rg, '=> H0 wird nicht abgelehnt.\n')
}