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] 4 2 4 4 2 3 3 0 2 2 2 3 2 4 2 4 2 4 2 2 4 4 0 4 4 4 4 4 3 0
#> 
#> $thresholds
#>       [,1] [,2] [,3] [,4]
#>  [1,]    1    1    4    4
#>  [2,]    2    2    3    4
#>  [3,]    1    1    1    2
#>  [4,]    1    1    2    2
#>  [5,]    1    1    4    4
#>  [6,]    1    1    1    5
#>  [7,]    1    1    1    4
#>  [8,]    3    3    3    4
#>  [9,]    1    1    4    5
#> [10,]    1    1    5    5
#> [11,]    1    1    4    4
#> [12,]    1    1    3    5
#> [13,]    1    1    4    5
#> [14,]    1    1    3    5
#> [15,]    2    2    5    5
#> [16,]    1    1    1    1
#> [17,]    1    1    5    5
#> [18,]    1    1    2    4
#> [19,]    2    2    3    5
#> [20,]    2    2    3    4
#> [21,]    1    1    2    4
#> [22,]    1    1    4    5
#> [23,]    4    4    4    5
#> [24,]    2    2    2    5
#> [25,]    2    2    5    5
#> [26,]    2    2    4    5
#> [27,]    1    1    3    4
#> [28,]    2    2    2    4
#> [29,]    4    4    4    5
#> [30,]    3    3    5    5
#> 
#> $dif_estimates
#> [1] 0.8944272 0.8944272 1.2972119 1.0221681
#> 
#> $vignette_order
#> [1] 3 2 1
#> 
#> $n_respondents
#> [1] 30
#> 
#> $n_vignettes
#> [1] 3
#>