library("sf")
ger <- st_read(system.file("shape/GermanyNUTS3.shp",
package = "SDPDmod"),
quiet = TRUE)
m1thn <- mOrdNbr(ger)
# \donttest{
m4thn <- mOrdNbr(ger, 4)
mat1 <- rownor(m4thn)
m4thn2<- mOrdNbr(ger, 4, listv = TRUE, rn = TRUE)
mat2 <- m4thn2$W
# }
Run the code above in your browser using DataLab