# NOT RUN {
set.seed(1)
## Coordinates in two dimensions of 10 units ##
coord <- matrix(stats::runif(10*2), ncol=2)
## Temporal inclusion probabilities with 3 waves and 4 units ##
pik <- matrix(rep(0.2,10*3), ncol = 3, byrow = TRUE)
## Spot method to obtain temporal samples ##
S <- Spot(pik, coord)
## Compute IB criteria ##
Spread(S, pik, coord, criteria = 'IB')
# }
Run the code above in your browser using DataLab