https://github.com/tom-n-walker/uphill-plants-soil-carbon
Tip revision: 05e1672664e587a3808d326d6f78d29ca5e44c01 authored by Tom Walker on 07 September 2021, 14:31:53 UTC
Added all analyses, streamlined pipelines and improved statistical models. Removed data export (all done via drake cache).
Added all analyses, streamlined pipelines and improved statistical models. Removed data export (all done via drake cache).
Tip revision: 05e1672
load_relevees.R
################################################################################
#### Project: Lowland plant migrations alpine soil C loss
#### Title: Function | Load relevee data
#### Author: Tom Walker (thomas.walker@usys.ethz.ch)
#### Date: 26 May 2021
#### ---------------------------------------------------------------------------
load_relevees <- function(){
# load quadrat information
quad <- list(
cal = fread("./data/relevee_received/quad_cal.csv", data.table = F),
n01 = fread("./data/relevee_received/quad_nes_01.csv", data.table = F),
n03 = fread("./data/relevee_received/quad_nes_03.csv", data.table = F),
pra = fread("./data/relevee_received/quad_pra.csv", data.table = F),
rio = fread("./data/relevee_received/quad_rionda.csv", data.table = F)
)
# load relevee data
rele <- list(
cal = fread("./data/relevee_received/rel_calanda.csv", data.table = F),
n01 = fread("./data/relevee_received/rel_nesel_01.csv", data.table = F),
n03 = fread("./data/relevee_received/rel_nesel_03.csv", data.table = F),
pra = fread("./data/relevee_received/rel_pra.csv", data.table = F),
rio = fread("./data/relevee_received/rel_rionda.csv", data.table = F)
)
# load collar information
collars <- fread("./data/field_collars.csv", data.table = F) %>%
select(grid_id, grid, marc_treatment)
# load focal information
focals <- fread(paste0(getwd(), "/data/field_focal_names.csv"), data.table = F)
# collate data into list
out <- list(
quadrats = quad,
relevees = rele,
collars = collars,
focals = focals
)
# return
return(out)
}