Anchoring vignettes for DIF correction

Usage

morie_spatial_voting_anchoring_vignettes(Y, V, n_categories = 5L)

Arguments

Y: Vector of self-placement ratings.
V: Respondent-by-vignette ratings.
n_categories: Number of ordered categories.

Value

List with corrected_scores, thresholds, dif_estimates, vignette_order, n_respondents, n_vignettes.

References

King, G., Murray, C. J. L., Salomon, J. A., and Tandon, A. (2003). "Enhancing the Validity and Cross-Cultural Comparability of Measurement in Survey Research." APSR, 97(4), 567-583.

Examples

Y <- sample(1:5, 30, replace = TRUE)
V <- matrix(sample(1:5, 30 * 3, replace = TRUE), 30, 3)
morie_spatial_voting_anchoring_vignettes(Y, V)
#> $corrected_scores
#>  [1] 3 3 3 4 3 4 2 4 3 2 2 4 0 4 3 3 0 4 3 4 2 4 2 4 2 2 4 4 3 0
#> 
#> $thresholds
#>       [,1] [,2] [,3] [,4]
#>  [1,]    1    1    2    5
#>  [2,]    1    1    2    4
#>  [3,]    4    4    4    5
#>  [4,]    1    1    3    4
#>  [5,]    1    1    2    3
#>  [6,]    1    1    2    3
#>  [7,]    1    1    5    5
#>  [8,]    1    1    2    5
#>  [9,]    2    2    4    5
#> [10,]    1    1    5    5
#> [11,]    1    1    4    4
#> [12,]    2    2    2    3
#> [13,]    2    2    3    5
#> [14,]    1    1    2    2
#> [15,]    2    2    2    4
#> [16,]    1    1    2    5
#> [17,]    3    3    3    5
#> [18,]    1    1    2    4
#> [19,]    1    1    1    5
#> [20,]    1    1    4    4
#> [21,]    2    2    3    5
#> [22,]    1    1    2    2
#> [23,]    1    1    3    3
#> [24,]    1    1    5    5
#> [25,]    1    1    5    5
#> [26,]    1    1    3    3
#> [27,]    2    2    4    4
#> [28,]    2    2    2    5
#> [29,]    1    1    1    4
#> [30,]    4    4    4    5
#> 
#> $dif_estimates
#> [1] 0.8610339 0.8610339 1.2015316 0.9613209
#> 
#> $vignette_order
#> [1] 2 3 1
#> 
#> $n_respondents
#> [1] 30
#> 
#> $n_vignettes
#> [1] 3
#>