weight_matrix <- nb2listw(adj_matrix, style = "W") Error in nb2listw(adj_matrix, style = "W") : Not a neighbours list

这个错误表示你提供的邻接矩阵 `adj_matrix` 不是一个邻居列表。 `nb2listw()` 函数需要一个邻居列表作为输入，而不是邻接矩阵。

你需要将邻接矩阵转换成邻居列表，然后再执行 `nb2listw()` 函数。你可以使用以下代码将邻接矩阵转换成邻居列表：

library(spdep)
nb <- mat2listw(adj_matrix, style = "B")
weight_matrix <- nb2listw(nb, style = "W")

在这里， `mat2listw()` 函数将邻接矩阵转换成邻居列表，其中 `style = "B"` 表示邻居关系是二进制的。然后，我们将邻居列表输入到 `nb2listw()` 函数中，并将 `style = "W"` 用于加权列表。

请注意，如果你的邻接矩阵不是二进制的，那么你需要使用 `mat2listw()` 函数的其他选项来指定邻居列表的类型。