esa.plot (object, max.buffer = NULL, spacing = NULL, max.mask = NULL,
detectfn, detectpar, noccasions, binomN = NULL, thin = 0.1,
poly = NULL, session = 1, plt = TRUE, as.density = TRUE, n = 1,
add = FALSE, overlay = TRUE, ...)
traps
object or secr
object output from secr.fit
mask
object secr.fit
) object
spans multiple sessions)add = TRUE
for plots after the first A dataframe with columns
plt = TRUE
the dataframe is returned invisibly.Effective sampling area (esa) is defined as the integral of net
capture probability (esa.plot
shows the effect of increasing region size on
the value of esa for fixed values of the detection parameters. The
max.buffer
or max.mask
arguments establish the maximum
extent of the region; points (cells) within this mask are sorted by
their distance
The default (as.density = TRUE
) is to plot the reciprocal of esa
multiplied by n
; this is on a more familiar scale (the density
scale) and hence is easier to interpret.
Because esa.plot
uses the criterion `distance to nearest
detector', max.mask
should be constructed to include all
habitable cells within the desired maximum buffer and no others. This
is achieved with type = "trapbuffer"
in make.mask
. It is
a good idea to set the spacing
argument of make.mask
rather than relying on the default based on nx
. Spacing may be
small (e.g. sigma/10) and the buffer of max.mask
may be quite
large (e.g. 10 sigma), as computation is fast.
Thinning serves to reduce redundancy in the plotted points, and (if
the result is saved and printed) to generate more legible numerical
output. Use thin=1
to include all points.
esa.plot
calls the internal function esa.plot.secr
when
object
is a fitted model. In this case detectfn
,
detectpar
and noccasions
are inferred from
object
.
Borchers, D. L. and Efford, M. G. (2008) Spatially explicit maximum likelihood methods for capture--recapture studies. Biometrics 64, 377--385.
mask
, pdot
,
make.mask
, mask.check
,
Detection functions
## with previously fitted model
esa.plot(secrdemo.0)
## from scratch
trps <- make.grid()
msk <- make.mask(trps, buffer = 200, spacing = 5, type = "trapbuffer")
detectpar <- list(g0 = 0.2, sigma = 25)
esa.plot(trps,,, msk, 0, detectpar, nocc = 10, col = "blue")
esa.plot(trps,,, msk, 0, detectpar, nocc = 5, col = "green",
add = TRUE)
esa.plot(trps,,, msk, 0, detectpar, nocc = 5, thin = 0.002, plt = FALSE)
Run the code above in your browser using DataLab