# Creating an arbitrary adjacency matrix
adj.matrix <- matrix(
c(
0, 1, 1, 0, 0,
1, 0, 1, 0, 0,
1, 1, 0, 0, 0,
0, 0, 0, 0, 1,
0, 0, 0, 1, 0
),
5, 5,
byrow = TRUE
)
polynomial_block(mu = 1, D = 0.95) |>
block_mult(5) |>
CAR_prior(scale = 9, rho = 1, adj.matrix = adj.matrix)
Run the code above in your browser using DataLab