Skip to content
Snippets Groups Projects
Commit 854055bf authored by Simon, Wolfram's avatar Simon, Wolfram
Browse files

Fixed a big in data loading

parent e540fbf4
No related branches found
No related tags found
No related merge requests found
...@@ -5,8 +5,7 @@ easypackages::packages(c("tidyverse", "readxl", "openxlsx", "rio", "xlsx", "sf", ...@@ -5,8 +5,7 @@ easypackages::packages(c("tidyverse", "readxl", "openxlsx", "rio", "xlsx", "sf",
"BBmisc", "quanteda", "Ryacas")) "BBmisc", "quanteda", "Ryacas"))
# Load data -------------------------------------------------------------- # Load data --------------------------------------------------------------
dat_n2 = read_csv("Input_data/N2_N20_ratio.csv") dat_n2 = read_csv("Input_data/N2_N20_ratio_input.csv")
# functions --------------------------------------------------------------- # functions ---------------------------------------------------------------
# converting letters to numbers for indexing # converting letters to numbers for indexing
# letter2number = function(x) {utf8ToInt(x) - utf8ToInt("a") + 1L} # letter2number = function(x) {utf8ToInt(x) - utf8ToInt("a") + 1L}
...@@ -46,7 +45,7 @@ ratio_grass_forest = as.numeric(dat_shrt$ratio_N2O_to_N2O_N2[351]) ...@@ -46,7 +45,7 @@ ratio_grass_forest = as.numeric(dat_shrt$ratio_N2O_to_N2O_N2[351])
# the soil types were mapped based on websites (perfereably university databases/articles/etc.) # the soil types were mapped based on websites (perfereably university databases/articles/etc.)
# sources are indicated in the dataset # sources are indicated in the dataset
dat_soilmap = read_csv("Input_data/soil_type_map.csv") %>% dat_soilmap = read_csv("Input_data/soil_type_map.csv") #%>%
dplyr::select(soil_type:Cifos_soil) dplyr::select(soil_type:Cifos_soil)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment