Thanks everybody!

Using the package *sampling *, for another aproach:

> population
         0-100 100-250 250+
Região 1     9      18   16
Região 2    33      25   27
Região 3    21      19   17
Região 4    25      22   19
Região 5    40      39   19
Região 6    77      45   29

> sample_design <- srswor(3,6)

> data_sampled <- getdata(population, sample_design)

> data_sampled
         ID_unit 0-100 100-250 250+
Região 4       4    25      22   19
Região 5       5    40      39   19
Região 6       6    77      45   29


-- 
Raphael Saldanha
UFJF - BRAZIL
saldanha.plangeo@gmail.com


Groucho Marx  - "A hospital bed is a parked taxi with the meter running."

	[[alternative HTML version deleted]]

