version 1.2.0

cran · Jun 19, 2016 · 83705f7 · 83705f7
1 parent f334837
commit 83705f7
Show file tree

Hide file tree

Showing 7 changed files with 50 additions and 21 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: imputeTestbench
 Type: Package
 Title: Test Bench for Missing Data Imputing Models/Methods Comparison
-Version: 1.1.0
+Version: 1.2.0
 Author: Neeraj Bokde
 Maintainer: Neeraj Bokde <neerajdhanraj@gmail.com>
 Description: Provides a Test bench for comparison of missing
@@ -10,12 +10,14 @@ Description: Provides a Test bench for comparison of missing
     bench and to compare with other methods. The function 'append_method()' allows
     to add multiple numbers of methods to the existing methods available in test bench.
 Imports: ggplot2, imputeTS, reshape2, methods, stats
+BugReports: https://github.com/neerajdhanraj/imputeTestbench/issues
+URL: http://www.neerajbokde.com/
 License: GPL
 LazyData: TRUE
 RoxygenNote: 5.0.1
 Suggests: knitr, rmarkdown
 VignetteBuilder: knitr
 NeedsCompilation: no
-Packaged: 2016-04-20 19:09:41 UTC; NEERAJ
+Packaged: 2016-06-19 10:14:55 UTC; NEERAJ
 Repository: CRAN
-Date/Publication: 2016-04-21 15:51:50
+Date/Publication: 2016-06-19 16:41:19
diff --git a/MD5 b/MD5
@@ -1,19 +1,19 @@
-2b928172c366eeed0b34f822ca709349 *DESCRIPTION
+2bf5d6cbc6fb1debc04b36c0e3f2b616 *DESCRIPTION
 3aa1b5a7ad17e70251402a8568e7732f *NAMESPACE
 d5161ad7ba19fd4bb7c7d1d883f3c2a5 *R/append_method.R
 d669d33da67085fe3b536627fcd7a9af *R/error_functions.R
-c2419560890742e49f4e98a6fc4ecdec *R/impute_errors.R
+fb3f52e457b0b924a1a7599e06b2e353 *R/impute_errors.R
 803029808c7a3361ca3a5fe5d4a7473b *R/plot_errors.R
 fa1b29da8cdb6069f5a2064c91804783 *R/remove_method.R
 5c37869e953de289f33b5717a3d4fdfa *build/vignette.rds
-155d7f30e87b1781bb59af8da7247618 *inst/doc/imputeTestbench-Vignette.R
-c850a692fde45c9f55f45442f1f01339 *inst/doc/imputeTestbench-Vignette.Rmd
-83881239e48ea717a468f7ae5f7a548a *inst/doc/imputeTestbench-Vignette.html
+8adb2c03237ce74658db496a18e1d18d *inst/doc/imputeTestbench-Vignette.R
+16f9551f5a1f1af4a6bf00ef47a60ecc *inst/doc/imputeTestbench-Vignette.Rmd
+0c6761b6aef38e686ddc49bda63a03d4 *inst/doc/imputeTestbench-Vignette.html
 8bc7d97340ba8c997e9118b566649c43 *man/append_method.Rd
 29fc1b5a9445b9947a4274a508667494 *man/impute_errors.Rd
 a1b43f0d6f7fed5e730b2234eb58d0b3 *man/mae.Rd
 0d6cdfb32eb78266af7dc3eec091c297 *man/mape.Rd
 2310169b56c8ff9707f1e6e69b89e34e *man/plot_errors.Rd
 5d5542edaa215189f1bf4a0ccfb39a94 *man/remove_method.Rd
 472e93fa5117100e12f5bb00358cb759 *man/rmse.Rd
-c850a692fde45c9f55f45442f1f01339 *vignettes/imputeTestbench-Vignette.Rmd
+16f9551f5a1f1af4a6bf00ef47a60ecc *vignettes/imputeTestbench-Vignette.Rmd
diff --git a/R/impute_errors.R b/R/impute_errors.R
@@ -84,8 +84,14 @@ impute_errors <- function(dataIn, missPercentFrom, missPercentTo, interval, repe
     #repetition <- 5      # number of repetition
     a <- length(dataIn)
     b <- a * x
-    b <- abs(b)
-    c <- a-b
+    b <- round(b)
+    ###c <- a-b
+    c <- sample(1:a, 1, replace = TRUE)
+    while(c > a-b)
+    {
+      c <- sample(1:a, 1, replace = TRUE)
+    }
+
     out <- NULL
 
     for(i in 1:repetition)
@@ -100,6 +106,7 @@ impute_errors <- function(dataIn, missPercentFrom, missPercentTo, interval, repe
       out[i] <- data.frame(dataIn)
     }
 
+#return(out)
     gh <- NULL
     gh1 <- NULL
     ghnew <- NULL

diff --git a/inst/doc/imputeTestbench-Vignette.R b/inst/doc/imputeTestbench-Vignette.R
@@ -21,3 +21,8 @@ plot_errors(q)
 #bb
 #plot_errors(bb)
 
+## ------------------------------------------------------------------------
+#cc <- remove_method(existing_method = bb, method_number = 1)
+#cc
+#plot_errors(cc)
+
diff --git a/inst/doc/imputeTestbench-Vignette.Rmd b/inst/doc/imputeTestbench-Vignette.Rmd
@@ -101,3 +101,9 @@ where
 - `MethodName` is name for function for the proposed imputation method
 
 
+Similarly, user can remove an imputation method from test bench with following function
+```{r}
+#cc <- remove_method(existing_method = bb, method_number = 1)
+#cc
+#plot_errors(cc)
+```
diff --git a/inst/doc/imputeTestbench-Vignette.html b/inst/doc/imputeTestbench-Vignette.html
diff --git a/vignettes/imputeTestbench-Vignette.Rmd b/vignettes/imputeTestbench-Vignette.Rmd
@@ -101,3 +101,9 @@ where
 - `MethodName` is name for function for the proposed imputation method
 
 
+Similarly, user can remove an imputation method from test bench with following function
+```{r}
+#cc <- remove_method(existing_method = bb, method_number = 1)
+#cc
+#plot_errors(cc)
+```