Add R notebook for data exploration

Urban-Analytics-Technology-Platform · Feb 19, 2024 · f9cbcfa · f9cbcfa
1 parent f7e2b9b
commit f9cbcfa
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/notebooks/R/.gitignore b/notebooks/R/.gitignore
@@ -0,0 +1,5 @@
+data/
+.Rhistory
+.RData
+R.Rproj
+.Rproj.user/
diff --git a/notebooks/R/main.R b/notebooks/R/main.R
@@ -0,0 +1,10 @@
+folderIn <- "data"
+
+readNTS <- function(name,folderIn = "data"){
+  data <- read.table(file.path(folderIn,"UKDA-5340-tab","tab",paste0(name,"_eul_2002-2022.tab")), sep="\t", header=TRUE)
+  return(data)
+}
+
+NTS <- readNTS("individual",folderIn)
+stage <- readNTS("stage",folderIn)
+trip <- readNTS("trip",folderIn)