Значения на основе расстояния при создании соседей с использованием spdep в r

Question

Я хотел бы сделать переменную, которая является количеством магазинов, расположенных в пределах 400 м от блока.

Если блок A, B и C находится в пределах 400 м от блока D, блок D, переменная которого должна измеряться как сумма блоков A, B и C.

A = 1, B = 2, C = 3, тогда переменная D = 1+2+3 = 6

columbus <- readShapePoly("block_ref.shp")
nb_q <- poly2nb(columbus) 
a <- dnearneigh(coords, 0, 400, row.names=columbus$bk)

Я сделал этот код, но невозможно экспортировать матрицу пространственного веса на R...

Как мне сделать код для решения этой проблемы?