N = 100
x = 1:4
# karo 1, pik 2, herc 3, tref 4

uzorak = c(1,2,2,3,1,4,4,2,3,3)
n = length(uzorak)

t_ocena = N*mean(uzorak)
t_ocena

# A - broj pikova od 100 papirica
br_pikova_u_uzorku = sum(uzorak==2)
pn = br_pikova_u_uzorku/n
A_ocena = N*pn
A_ocena

D_t_ocena = N^2*var(uzorak)/n
D_t_ocena

pn = br_pikova_u_uzorku/n
D_A_ocena = N^2*pn*(1-pn)/(n-1)
D_A_ocena