N = 100
n = 10

uzorak = c(4,5,5,2,3,1,3,4,4,5)

# ocena prosecne ocene iz matematike na osnovu datog uzorka
xn = mean(uzorak)
xn

# Nepristrasna ocena disperzije D(Xn)_ocena = (N-n)*sn^2/(N*n)
# Disperziju ocene ne mozemo da izracunamo, jer imamo samo uzorak
# ne znamo kolika je disperzija obelezja na populaciji, a ona nam treba da bismo izracunali disperziju ocene Xn
D_xn_ocena = (N-n)*var(uzorak)/(N*n)
D_xn_ocena