From e3625ead3ee967caadc688a57a4e64a9847a123a Mon Sep 17 00:00:00 2001 From: usr110 Date: Mon, 19 Sep 2016 18:14:09 +0100 Subject: [PATCH] Temporarily comment code --- app/data-processing.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/app/data-processing.R b/app/data-processing.R index 633c7fc..d8cae96 100644 --- a/app/data-processing.R +++ b/app/data-processing.R @@ -90,19 +90,19 @@ tripMode$Cycled <- NULL # Comment out trip dataset # Read trip time -tripTime <- readRDS("data/csv/TripTotalTime1_regional.rds") +# tripTime <- readRDS("data/csv/TripTotalTime1_regional.rds") # Get row numbers with NA temp <- data.frame(rn = which( is.na(tripMode$MainMode_Reduced), arr.ind=TRUE)) tripMode$X <- c(1:nrow(tripMode)) -tripTime$X <- c(1:nrow(tripTime)) +# tripTime$X <- c(1:nrow(tripTime)) # Remove all rows with NA in them tripMode <- (subset(tripMode, !(X %in% temp$rn) )) -tripTime <- (subset(tripTime, !(X %in% temp$rn) )) +# tripTime <- (subset(tripTime, !(X %in% temp$rn) )) rm(temp) @@ -153,7 +153,7 @@ TripTotalTimeFreq <- function(tripTime, tripMode){ # all possible scenarios - not very elegant way - aaScenarios <- colnames(tripTime)[10:length(colnames(tripTime))-1][c(4,5)] + aaScenarios <- colnames(tripTime)[10:length(colnames(tripTime))-1] # all possible regions @@ -401,7 +401,7 @@ TripTotalTimeFreq <- function(tripTime, tripMode){ } -testTripTotalTimeFreq <- TripTotalTimeFreq(tripTime, tripMode) +# testTripTotalTimeFreq <- TripTotalTimeFreq(tripTime, tripMode) # rm(tripTime) # gc() \ No newline at end of file