Creating higher order neighbours lists

nblags <- nblag(neighbours = nb1, maxlag = 3)
class(nblags)

## [1] "list"

length(nblags)

## [1] 3

all.equal(nb1, nblags[[1]], check.attributes = FALSE)

## [1] TRUE