fixed minor error

catherian-cat · May 31, 2020 · 43afec8 · 43afec8
1 parent 56266b2
commit 43afec8
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/R/get-order.R b/R/get-order.R
@@ -11,7 +11,7 @@
 #' get_order(hc)
 #' @author Houyun Huang, Lei Zhou, Jian Chen, Taiyun Wei
 #' @export
-get_order <- function(x, name = NULL, ...) {
+get_order <- function(x, ...) {
   UseMethod("get_order")
 }
 
@@ -79,8 +79,8 @@ get_order.quickcor <- function(x,
                                index = "row",
                                name = NULL,
                                ...) {
-  x <- plot$data
+  x <- x$data
   index <- match.arg(index, c("row", "column"))
   order <- if(index == "row") get_row_name(x) else get_col_name(x)
-  get_order(order, index = index, name = name)
+  get_order(order, name = name)
 }
diff --git a/R/rand-forest.R b/R/rand-forest.R
@@ -43,7 +43,7 @@ rand_forest <- function(spec,
   randomForest <- get_function("randomForest", "randomForest")
   importance <- get_function("randomForest", "importance")
   set.seed(seed)
-  seeds <- as.integer(runif(n) * 10000)
+  seeds <- as.integer(stats::runif(n) * 10000)
 
   explained <- structure(.Data = vector(length = n), names = names(spec), class = "numeric")
   if(byrow) {

diff --git a/man/get_order.Rd b/man/get_order.Rd