st_coordinates()
sf
inla()
nblags <- nblag(neighbours = nb1, maxlag = 3) class(nblags)
## [1] "list"
length(nblags)
## [1] 3
all.equal(nb1, nblags[[1]], check.attributes = FALSE)
## [1] TRUE