library("sf")
# \donttest{
ger <- st_read(system.file("shape/GermanyNUTS3.shp",
package = "SDPDmod"),
quiet = TRUE)
bav <- ger[which(substr(ger$NUTS_CODE,1,3)=="DE2"),] ## Bavarian districts
W <- SharedBMat(bav)
# }
Run the code above in your browser using DataLab