Revise the name of the function

awsm-research · Mar 26, 2019 · 1ca3a59 · 1ca3a59
1 parent 16baa39
commit 1ca3a59
Show file tree

Hide file tree

Showing 7 changed files with 32 additions and 32 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -2,12 +2,12 @@
 
 S3method(plot,summarizedvc)
 export(AutoSpearman)
-export(check.constant.categorical)
 export(fit)
 export(get.importance)
 export(loadDefectDataset)
 export(performance.calculation)
 export(plotVarClus)
+export(remove.constant.categorical)
 export(single.fit)
 export(stepwise.vif)
 import(dendextend)

diff --git a/R/AutoSpearman.R b/R/AutoSpearman.R
@@ -22,8 +22,8 @@ AutoSpearman <-
            spearman.threshold = 0.7,
            vif.threshold = 5,
            verbose = F) {
-    # Check constant metrics and categorical metrics
-    metrics <- check.constant.categorical(dataset, metrics)
+    # Remove constant metrics and categorical metrics
+    metrics <- remove.constant.categorical(dataset, metrics)
 
 
     spearman.metrics <-

diff --git a/R/get.vc.R b/R/get.vc.R
@@ -10,8 +10,8 @@
 
 get.vc <- function(dataset, metrics, similarity = 'spearman', varclus.threshold = 0.7){
 
-  # Check constant metrics and categorical metrics
-  metrics <- check.constant.categorical(dataset, metrics)
+  # remove constant metrics and categorical metrics
+  metrics <- remove.constant.categorical(dataset, metrics)
 
   f <- as.formula(paste("~", paste(metrics, collapse = " + ")))
   vc <-

diff --git a/R/get.vc.correlation.groups.R b/R/get.vc.correlation.groups.R
@@ -10,8 +10,8 @@
 
 get.vc.correlation.groups <- function(dataset, metrics, similarity = 'spearman', varclus.threshold = 0.7){
 
-  # Check constant metrics and categorical metrics
-  metrics <- check.constant.categorical(dataset, metrics)
+  # Remove constant metrics and categorical metrics
+  metrics <- remove.constant.categorical(dataset, metrics)
 
   f <- as.formula(paste("~", paste(metrics, collapse = " + ")))
   vc <-

diff --git a/R/check.constant.categorical.R → R/remove.constant.categorical.R b/R/check.constant.categorical.R → R/remove.constant.categorical.R
@@ -1,13 +1,13 @@
-#' Check for constant metrics and categorical metrics
+#' Remove constant metrics and categorical metrics
 #' 
 #' @param dataset  a data frame for data
 #' @param metrics  a characters or a vector of characters for independent variables
 #' @keywords constant categorical
 #' @examples
 #' Data = loadDefectDataset('groovy-1_5_7','jira')
-#' check.constant.categorical(dataset = Data$data, metrics = Data$indep)
+#' remove.constant.categorical(dataset = Data$data, metrics = Data$indep)
 #' @export
-check.constant.categorical <-
+remove.constant.categorical <-
   function(dataset,
            metrics) {
     # Check constant metrics

diff --git a/man/check.constant.categorical.Rd b/man/check.constant.categorical.Rd
diff --git a/man/remove.constant.categorical.Rd b/man/remove.constant.categorical.Rd