mini <- make.grid(nx = 2, ny = 2, spacing = 100)
region <- cbind(x=c(0,2000,2000,0), y=c(0,0,2000,2000))
temp <- make.systematic(25, mini, region, plt = TRUE)
temp <- make.systematic(c(6, 6), mini, region, plt = TRUE,
rotation = -1)
## Example using shapefile "possumarea.shp" in
## "extdata" folder. By default, each cluster is
## a single multi-catch detector
## Not run: ------------------------------------
#
# datadir <- system.file("extdata", package = "secr")
# possumareafile <- paste0(datadir, "/possumarea.shp")
# possumarea <- rgdal::readOGR(dsn = possumareafile, layer = "possumarea")
#
# possumgrid <- make.systematic(spacing = 100, region =
# possumarea, plt = TRUE)
#
# ## or with 2 x 2 clusters
# possumgrid2 <- make.systematic(spacing = 300,
# cluster = make.grid(nx = 2, ny = 2, spacing = 100),
# region = possumarea, plt = TRUE, edgemethod =
# "allinside")
# ## label clusters
# text(cluster.centres(possumgrid2), levels(clusterID
# (possumgrid2)), cex=0.7)
#
# ## If you have GPSBabel installed and on the Path
# ## then coordinates can be projected and uploaded
# ## to a GPS with `writeGPS', which also requires the
# ## package `proj4'. Defaults are for a Garmin GPS
# ## connected by USB.
#
# writeGPS(possumgrid, proj = "+proj=nzmg")
#
## ---------------------------------------------
Run the code above in your browser using DataLab