# Create a SpatialPointsDataFrame grid of spatMask extent and 200 meters
# resolution
data(spatData)
mygrid <- CreateGrid(w = spatMask, resolution = 200)
# Create a distance matrix between known spatPts and mygrid
mymat <- CreateDistMatrix(knownpts = spatPts, unknownpts = mygrid,
longlat = FALSE, bypassctrl = FALSE)
mymat[1:5,1:5]
nrow(spatPts)
nrow(mygrid)
dim(mymat)Run the code above in your browser using DataLab