Update R notebook for NTS

Urban-Analytics-Technology-Platform · Feb 19, 2024 · 7d6ace1 · 7d6ace1
1 parent f9cbcfa
commit 7d6ace1
Showing 1 changed file with 16 additions and 2 deletions.
diff --git a/notebooks/R/main.R b/notebooks/R/main.R
@@ -5,6 +5,20 @@ readNTS <- function(name,folderIn = "data"){
  return(data)
 }
 
-NTS <- readNTS("individual",folderIn)
+indiv <- readNTS("individual",folderIn)
 stage <- readNTS("stage",folderIn)
-trip <- readNTS("trip",folderIn)
+trip <- readNTS("trip",folderIn)
+
+trip2022 <- trip[trip$SurveyYear == 2022,]
+stage2022 <- stage[stage$SurveyYear == 2022,]
+
+# Missing values
+neg <- which(trip2022 < 0, arr.ind = T)
+nrow(neg)
+unique(colnames(trip2022)[neg[,2]])
+length(which(neg[,2] == neg[,2][1]))/nrow(trip2022)
+
+negS <- which(stage2022 < 0, arr.ind = T)
+nrow(negS)
+unique(colnames(stage2022)[negS[,2]])
+length(which(negS[,2] == negS[,2][1]))/nrow(stage2022)