У меня проблемы с spdep() . Начиная с матрицы непропущенных расстояний, созданной функцией dist_m <- geoDistMatrix(data1, group = 'fips_dist') dist_m[upper.tri(dist_m)] <- t(dist_m)[upper.tri(dist_m)] затем мы превращаемся в веса с...