if (FALSE) {
library("NeuralEstimators")
# Number of replicates and spatial dimension
m <- 5
d <- 2
# Spatial locations fixed for all replicates
n <- 100
S <- matrix(runif(n * d), n, d)
Z <- matrix(runif(n * m), n, m)
g <- spatialgraph(S, Z)
# Spatial locations varying between replicates
n <- sample(50:100, m, replace = TRUE)
S <- lapply(n, function(ni) matrix(runif(ni * d), ni, d))
Z <- lapply(n, function(ni) runif(ni))
g <- spatialgraph(S, Z)
}
Run the code above in your browser using DataLab