knitr::opts_chunk$set(echo = TRUE)
Note that for aceitillar sampling only ever occured in Nov, Jan and March, and that this only occured in 1996-1997, and 1997-1998. In 1999 and beyond all sampling occurred in January (Or only january data considered).
Note that sampling in eg January 1999 is coded as "1998-1999" for consistency witht he prior years and the Mencia data.
In contrast, Mencia sampling occurred in Nov, Jan and Feb (never March) in all years except 2008 (final year), when no sampling is indicate in March.
2004 2005 2006 2007 2008 #5 yrs @ mencia 1997 1998 1998 2000 2001 2002 2003 #7 yrs @ aceitilaR
# duplicated code? # filename <- "mencia_site_persist_clean.csv" # filename <- here::here("data-raw", # "data-raw-mencia", # "mencia_site_persistence", # filename) # mencia_site_persist <- read.csv(filename)
filename <- "mencia_site_persist_clean.csv" filename <- here::here("data-raw", "data-raw-mencia", "mencia_site_persistence", filename) mencia_site_persist <- read.csv(filename, stringsAsFactors = F)
filename <- "aceit_site_persist_clean.csv" filename <- here::here("data-raw", "data-raw-aceitillar_96-02", filename) aceit_site_persist <- read.csv(filename, stringsAsFactors = F)
this ranking uses all years of data for both sites, even though the sites differ in sampling effort both in terms of resight effort (less resight for Aceit) AND number of years (more years Aceit). Therefor it is a very naive categorications
col.names <- intersect(names(aceit_site_persist), names(mencia_site_persist))
site_persist <- merge(aceit_site_persist[,col.names], mencia_site_persist[,col.names], all = TRUE)
Check size
dim(aceit_site_persist) dim(mencia_site_persist) dim(site_persist)
saved to "data" folder where working data for real analyses is stored
filename <- "site_persist.RData" filename <-here::here("data", filename) save(site_persist, file = filename,row.names = F)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.