У меня проблемы с spdep()
. Начиная с матрицы непропущенных расстояний, созданной функцией
dist_m <- geoDistMatrix(data1, group = 'fips_dist')
dist_m[upper.tri(dist_m)] <- t(dist_m)[upper.tri(dist_m)]
затем мы превращаемся в веса с линейной обратной
max_dist <- max(dist_m)
w1 <- (max_dist + 1 - dist_m)/(max_dist + 1)
и сейчас
lw <- mat2listw(w1, row.names = rownames(w1), style = 'M')
Я проверяю, чтобы убедиться, что нет пропущенных весов:
any(is.na(lw$weights))
и так как их нет, продолжайте:
errorsarlm(cvote ~ inc, data = data1, lw, method = 'eigen', quiet = F, zero.policy = TRUE)
приводит к следующей ошибке:
Error in subset.listw(listw, subset, zero.policy = zero.policy) :
Not yet able to subset general weights lists