# Get file paths
data_dir <- dirname(file.path("01_data", "filename"))
script_dir <- dirname(file.path("02_scripts",  "filename"))
# Load packages
pckgs<-list("tidyverse","hypervolume","doParallel", "alphahull","glue")
lapply(pckgs,require,character.only=T)
# Load data
load(paste(getwd(),data_dir,"data_dryad.rda",sep="/"))
?getwd()
