load_try.R
################################################################################
#### Project: Lowland plant migrations alpine soil C loss
#### Title: Function | Load TRY data
#### Author: Tom Walker (thomas.walker@usys.ethz.ch)
#### Date: 26 May 2021
#### ---------------------------------------------------------------------------
load_try <- function(){
trySpecies <- fread("./data/try_species.csv")
try <- fread("./data/try_nums.csv")
tryImputed <- apply_mice(try, 5)
tryOut <- bind_cols(trySpecies, tryImputed) %>% as.data.frame
return(tryOut)
}