inst/examples/old/examples-mask.R

In dkidney/gibbonsecr: SECR Analysis for Acoustic Gibbon Surveys

\dontrun{

data(peafowl)
capthist = peafowl.capthist
mask = peafowl.mask

# summary ----------------------------------------------------------------------

summary(mask)

# plot -------------------------------------------------------------------------

# debugonce(gibbonsecr:::plot.gmask)

plot(mask)
points(mask, sessions = 1:3, col = "red")
points(mask, sessions = 4, col = 1:10)

plot(mask, "riverine")
plot(mask, "dist_river")

# ggplot -----------------------------------------------------------------------

library(ggplot2)
ggplot(mask)

# mask points
ggplot(mask, color = "grey", cex = 0.1)

# overlay array centres over mask points
ggplot(mask, color = "grey", cex = 0.1) + arrays

# mask covariates
ggplot(mask, "hab_type")
ggplot(mask, "riverine")
ggplot(mask, "dist_river")
ggplot(mask, "dist_villa")

ggplot(mask, "dist_villa") + stat_contour()


ggplot(mask, "dist_villa") + geom_mask(mask, "dist_villa", contour = TRUE)

geom_mask_contour(mask)

debugonce(ggplot.gmask)
debugonce(ggplot_base)
debugonce(geom_mask)


}