Better time stamping

topepo · Jan 10, 2017 · 67ce327 · 67ce327
1 parent 244101a
commit 67ce327
Show file tree

Hide file tree

Showing 249 changed files with 749 additions and 498 deletions.
diff --git a/RegressionTests/Code/ANFIS.R b/RegressionTests/Code/ANFIS.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "ANFIS"
 
@@ -76,8 +76,9 @@ test_reg_imp <- varImp(test_reg_cv_model)
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/AdaBag.R b/RegressionTests/Code/AdaBag.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "AdaBag"
 
@@ -85,10 +85,11 @@ if(!all(levels(trainY) %in% test_levels))
 #########################################################################
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/AdaBoost.M1.R b/RegressionTests/Code/AdaBoost.M1.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "AdaBoost.M1"
 
@@ -88,10 +88,11 @@ if(!all(levels(trainY) %in% test_levels))
 #########################################################################
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/Boruta.R b/RegressionTests/Code/Boruta.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "Boruta"
 
@@ -158,8 +158,9 @@ test_reg_none_pred <- predict(test_reg_none_model, testX)
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/C5.0.R b/RegressionTests/Code/C5.0.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "C5.0"
 
@@ -84,10 +84,11 @@ test_class_imp <- varImp(test_class_cv_model)
 #########################################################################
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/C5.0Cost.R b/RegressionTests/Code/C5.0Cost.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "C5.0Cost"
 
@@ -69,10 +69,11 @@ test_class_imp <- varImp(test_class_cv_model)
 #########################################################################
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/C5.0Rules.R b/RegressionTests/Code/C5.0Rules.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "C5.0Rules"
 
@@ -71,10 +71,11 @@ test_class_imp <- varImp(test_class_cv_model)
 #########################################################################
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/C5.0Tree.R b/RegressionTests/Code/C5.0Tree.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "C5.0Tree"
 
@@ -71,10 +71,11 @@ test_class_imp <- varImp(test_class_cv_model)
 #########################################################################
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/CSimca.R b/RegressionTests/Code/CSimca.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "CSimca"
 
@@ -54,10 +54,11 @@ if(!all(levels(trainY) %in% test_levels))
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/DENFIS.R b/RegressionTests/Code/DENFIS.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "DENFIS"
 
@@ -76,8 +76,9 @@ test_reg_imp <- varImp(test_reg_cv_model)
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/FH.GBML.R b/RegressionTests/Code/FH.GBML.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "FH.GBML"
 
@@ -65,10 +65,11 @@ if(!all(levels(trainY) %in% test_levels))
 #########################################################################
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/FIR.DM.R b/RegressionTests/Code/FIR.DM.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "FIR.DM"
 
@@ -83,8 +83,9 @@ test_reg_imp <- varImp(test_reg_cv_model)
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/FRBCS.CHI.R b/RegressionTests/Code/FRBCS.CHI.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "FRBCS.CHI"
 
@@ -62,10 +62,11 @@ if(!all(levels(trainY) %in% test_levels))
 #########################################################################
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/FRBCS.W.R b/RegressionTests/Code/FRBCS.W.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "FRBCS.W"
 
@@ -62,10 +62,11 @@ if(!all(levels(trainY) %in% test_levels))
 #########################################################################
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/FS.HGD.R b/RegressionTests/Code/FS.HGD.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "FS.HGD"
 
@@ -76,8 +76,9 @@ test_reg_imp <- varImp(test_reg_cv_model)
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/GFS.FR.MOGUL.R b/RegressionTests/Code/GFS.FR.MOGUL.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "GFS.FR.MOGUL"
 
@@ -82,8 +82,9 @@ test_reg_imp <- varImp(test_reg_cv_model)
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/GFS.GCCL.R b/RegressionTests/Code/GFS.GCCL.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "GFS.GCCL"
 
@@ -62,10 +62,11 @@ if(!all(levels(trainY) %in% test_levels))
 #########################################################################
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/GFS.LT.RS.R b/RegressionTests/Code/GFS.LT.RS.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "GFS.LT.RS"
 
@@ -76,8 +76,9 @@ test_reg_imp <- varImp(test_reg_cv_model)
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/GFS.Thrift.R b/RegressionTests/Code/GFS.Thrift.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "GFS.THRIFT"
 
@@ -76,8 +76,9 @@ test_reg_imp <- varImp(test_reg_cv_model)
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/HYFIS.R b/RegressionTests/Code/HYFIS.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "HYFIS"
 
@@ -76,8 +76,9 @@ test_reg_imp <- varImp(test_reg_cv_model)
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")

diff --git a/RegressionTests/Code/J48.R b/RegressionTests/Code/J48.R
@@ -1,5 +1,5 @@
+timestamp <- Sys.time()
 library(caret)
-timestamp <- format(Sys.time(), "%Y_%m_%d_%H_%M")
 
 model <- "J48"
 
@@ -69,8 +69,9 @@ test_class_predictors1 <- predictors(test_class_cv_model)
 tests <- grep("test_", ls(), fixed = TRUE, value = TRUE)
 
 sInfo <- sessionInfo()
+timestamp_end <- Sys.time()
 
-save(list = c(tests, "sInfo", "timestamp"),
+save(list = c(tests, "sInfo", "timestamp", "timestamp_end"),
      file = file.path(getwd(), paste(model, ".RData", sep = "")))
 
 q("no")