cleaning repo

chase-lab · Jun 28, 2021 · 4b79a9e · 4b79a9e
1 parent a14b1b8
commit 4b79a9e
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 71 deletions.
diff --git a/Data references UTF-8.txt b/Data references UTF-8.txt
diff --git a/README.md b/README.md
@@ -3,7 +3,7 @@
 ## Description
 
 This repository contains the raw data and code used to reproduce the analyses from the article: 
-**"Synthesis reveals that island species-area relationships emerge from processes beyond passive sampling"**.
+**"Synthesis reveals that island species-area relationships emerge from processes beyond passive sampling", 2021, Global Ecology and Biogeography, Gooriah, Leana; Blowes, Shane; Sagouis, Alban; Schrader, Julian; Karger, Dirk; Kreft, Holger; Chase, Jonathan**.
 
 ## Reproducibility and R environment
 

diff --git a/code/3_remove_islands_calc_diversity.R b/code/3_remove_islands_calc_diversity.R
@@ -4,11 +4,10 @@
 rm(list = ls())
 require(dplyr)
 require(tidyr)
-library(devtools)
 library(vegan)
 library(tidyr)
 library(readr)
-# install_github('MoBiodiv/mobr') # installing version saved in renv.lock is preferred
+# install_github('MoBiodiv/mobr') # installing version saved in renv.lock is preferred because the code on GitHub is rather dynamic
 require(mobr) # version 1.0
 
 work_dir <- getwd() # first set working directory in Menu/Session/Set working directory/to Project
@@ -22,6 +21,9 @@ data_path <- paste0(work_dir, "/data/isar_datasets")
 data_path1 <- paste(data_path,"/ISAR_datasets_N10",sep="")
 data_path2 <- paste(data_path,"/ISAR_datasets_N20",sep="")
 
+dir.create(data_path1, showWarnings = FALSE)
+dir.create(data_path2, showWarnings = FALSE)
+
 # Read all data file names
 filenames <- list.files(data_path, pattern="*.csv*", full.names = F)