# define image directory
wd_images_ID <- system.file("pictures/sample_images", package = "camtrapR")
# load station information
data(camtraps)
# create camera operation matrix
camop_no_problem <- cameraOperation(CTtable = camtraps,
stationCol = "Station",
setupCol = "Setup_date",
retrievalCol = "Retrieval_date",
hasProblems = FALSE,
dateFormat = "%d/%m/%Y"
)
# create record database
minDeltaT <- 60 # minutes between independent observations
if (Sys.which("exiftool") != ""){ # only run this function if Exiftool is available
recordDatabaseSample <- recordDatabase(inDir = wd_images_ID,
minDeltaTime = minDeltaT,
exclude = "NO_ID"
)
} else {
data(recordDatabaseSample)
}
# compute detection history for a species
species_for_DetHist <- "VTA" # = Viverra tangalunga, Malay Civet
days_per_session <- 7
DetHist1 <- detectionHistory(recordTable = recordDatabaseSample,
camOp = camop_no_problem,
stationCol = "Station",
speciesCol = "Species",
recordDateTimeCol = "DateTimeOriginal",
species = species_for_DetHist,
sessionLength = days_per_session,
BeginWithDay1 = TRUE,
DatesAsSessionNames = FALSE,
includeEffort = FALSE
)
DetHist1
Run the code above in your browser using DataLab