Kod 3.2 - NMSwBE

# Kod 3.2. Wyznaczenie liczby pustych cel dla losowych wartości w teście normalności

n=12

dane=rnorm(n)

q=qnorm((0:n)/n)

ni=c()

for (i in 1:n) {

ni[i]=sum(dane>=q[i] & dane<q[i+1])

}

Kn=sum(ni==0)

Kn