# Define an adjacency matrix for 5 spatial units
W <- rAdj(n = 5, p = 0.2)
# Generate spatial random field from ICAR model with variance = 1
spatial_random_field_icar <- spatICAR(W = W, sig = 1)
print(spatial_random_field_icar)
Run the code above in your browser using DataLab