A step of the RcppExports implementation. Called by morie_spatial_voting_em_irt.
See the file header for the source the module follows.
Examples
set.seed(3)
votes <- matrix(sample(c(-1, 1), 30, TRUE), 6, 5) # legislators x roll calls
morie_spatial_emirt_theta_update_cpp(theta = matrix(rnorm(6), 6, 1), a = matrix(1, 5, 1),
d = rep(0, 5), votes = votes)
#> [,1]
#> [1,] -1.71179904
#> [2,] -2.14620904
#> [3,] -0.98524653
#> [4,] -0.30089979
#> [5,] 0.31201329
#> [6,] -0.01893148
