Add data path ninke

working_paper/scripts/support/get_path.R

@@ -12,4 +12,11 @@ if(Sys.info()["user"] == "dijk158") {
   proc_path <- file.path(proj_path, "data/processed")
 }
 
+# Ninke
+if(Sys.info()["user"] == "feens028") {
+  proj_path <-  "C:/Users/feens028/Wageningen University & Research/PhD - Ninke - General/micro_data"
+  raw_path <- file.path(proj_path, "dutch_fadn/raw_data")
+  proc_path <- file.path(proj_path, "data/processed")
+}
+
 # Anybody else: