radnici = read.table("radnici.txt")
View(radnici)

n = 3
N = length(radnici$br_radnika)

pi = radnici$br_radnika/sum(radnici$br_radnika)
sum(pi)

indeks = sample(1:N, n, replace = T, prob = pi)
uzorak = radnici$proizvodnja[indeks]
uzorak

t_hh = sum(uzorak/pi[indeks])/n
t_hh