Mesure l'attraction sur les 10 chiffres terminaux (0-9). L'indice de Myers varie de 0 (aucune attraction) a 90 (attraction maximale). Un indice < 10 indique une bonne qualite des donnees d'age.
Examples
set.seed(42)
n <- 1000
ages_base <- sample(10:89, n, TRUE)
# Attraction sur les ages ronds
ages <- ifelse(runif(n) < 0.20,
ages_base - (ages_base %% 10),
ages_base)
individus <- data.frame(age = pmax(10, pmin(89, ages)))
myers(individus, "age")
#> === Indice de Myers ===
#> Myers : 18 (Qualite mauvaise (15-20))
#>
#> === Qualite des donnees demographiques ===
#> Methode : Myers (chiffres terminaux 0-9)
#> Indice : 18.05
#> Interpretation : Qualite mauvaise (15-20)
#> N obs : 1 000
#>
#> Distribution par chiffre terminal :
#> Digit : 0 1 2 3 4 5 6 7 8 9
#> Part% : 28 8.2 9.1 8.3 7.1 6.8 8.7 7.9 7.6 8.3