knitr::opts_chunk$set(echo = TRUE)
Merge age/sex/sample size df with site persistenc df
library(here)
tables5.6.final_age_etc <- read.csv(file = "./tables/temp_tables_5_6_age_etc.csv") tables5.6.final_site_persist <- read.csv( "./tables/temp_tables_5_6_site_persist.csv")
names of species
focal.mig <- c("OVEN","BAWW","COYE","AMRE","CMWA", "BTBW","PAWA","PRAW") focal.res <- c("HILC" # formerly HLCU ,"STOF" ,"RLTH" ,"NOMO" ,"GTGT" # formerly GRWA ,"BANA" ,"BCPT" ,"YFGR" ,"BFGR" ,"GABU") focals <- c(focal.mig,focal.res)
replicate order from tables in oridingal MS
tables5.6.final_age_etc$spp.code <- factor(tables5.6.final_age_etc$spp.code, levels = focals) tables5.6.final_site_persist$spp.code <- factor(tables5.6.final_site_persist$spp.code, levels = focals)
which(focals %in% tables5.6.final_age_etc$spp.code)
tables5.6 <- merge(tables5.6.final_age_etc, tables5.6.final_site_persist,by = "spp.code",sort = F)
write.csv(tables5.6, file = "./tables/tables5_6.csv")
# sjt.df(tables5.6, # describe = F, # file = "temp.doc")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.