Muestreo sistemático: se elige un punto de inicio aleatorio y luego se selecciona cada k-ésimo elemento. Se elige un arranque r∈{1,…,k} y se toma cada k-ésima unidad: r,r+k,r+2k,… con k=⌊N/n⌋
Requiere un listado sin periodicidades que puedan sesgar.
Tamaño de muestra: Igual que Muestreo aleatorio simple.
Ejemplo: en una lista de empleados, tomar cada 10.º nombre.
Ejemplo
N <- 1000
n <- 100
k <- floor(N / n)
r <- 3 # arranque "fijo" para que no cambie (o usa set.seed + sample(1:k,1))
idx <- seq(from = r, to = r + k*(n-1), by = k)
idx## [1] 3 13 23 33 43 53 63 73 83 93 103 113 123 133 143 153 163 173
## [19] 183 193 203 213 223 233 243 253 263 273 283 293 303 313 323 333 343 353
## [37] 363 373 383 393 403 413 423 433 443 453 463 473 483 493 503 513 523 533
## [55] 543 553 563 573 583 593 603 613 623 633 643 653 663 673 683 693 703 713
## [73] 723 733 743 753 763 773 783 793 803 813 823 833 843 853 863 873 883 893
## [91] 903 913 923 933 943 953 963 973 983 993