In carlopacioni/WPdata: Whiteman Park trapping data analysis

knitr::opts_chunk$set(echo=FALSE, warning=FALSE, message=FALSE, error=FALSE)
time <- format(Sys.time(), "%d %B %Y")

library(WPdata, quietly = TRUE)
library(data.table, quietly = TRUE)
library(ggplot2)
dir.in <- "C:\\Users\\30373314\\Documents\\Woylie\\Genetics\\DNA analysis\\Whiteman Park\\DB"
nfile="Woodland Reserve Fauna Data.xlsx"
sheet="DB"
data <- (read.trapping(dir.in, last.row=125, nfile="Sample_data.xlsx"))
data <- data.table(data)
nspecies <- length(data[, unique(Species)])

This is a provisional report on native fauna monitoring in the Woodland reserve at Whiteman Park as for r time. At establishment, only woylies (Bettongia penicillata ogylbyi) and quendas (scientific name) were present in the reserve. However, since its establishment, date, a total of r nspecies
species are now introduced and several surveys were carried out to monitor the status of the Woodland reserve fauna as detailed in Table 1.

nsessions <- trap.year(data)
knitr::kable(nsessions, caption="**Table 1.** Total number of trapping sessions for 
             each year, for each species monitored in the Woodland reserve at Whiteman Park.")

As part of the standard monitoring, several demographic and morphological parameters have been recorded. These allow for a monitoring of population condition over time as exemplified by the following plots:

p <- params.plot(data, params=c("Animal.Weight", "Pes"), species="Woylie")

print(p[[1]] + ylab("Weight (kg)"))

print(p[[2]] + ylab("Pes (mm)"))

carlopacioni/WPdata documentation built on June 4, 2019, 2:08 p.m.