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

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