## generate random adjancency matrix
n <- 6
adjmat <- matrix(0, n, n)
adjmat[lower.tri(adjmat)] <- sample(0:1, n*(n-1)/2, replace=TRUE)
adjmat <- adjmat + t(adjmat)
## determine neighbourhood order matrix
if (require("spdep")) {
    nbmat <- nbOrder(adjmat, maxlag=Inf)
    nbmat
}Run the code above in your browser using DataLab