Kod 3.1 - NMSwBE

# Kod 3.1. Wyznaczenie liczby pustych cel dla zmiennej mpg

x=mtcars$mpg

n=length(x)

x_min=min(x)

x_max=max(x)

q=qunif((0:n)/n,x_min,x_max)

ni=c()

for (i in 1:n) {ni[i]=sum(x>=q[i] & x<q[i+1])}

Kn=sum(ni==0)

Kn