removed animation package

pridiltal · Jul 23, 2019 · f1a9963 · f1a9963
1 parent 0e471ba
commit f1a9963
Show file tree

Hide file tree

Showing 6 changed files with 4 additions and 13 deletions.
diff --git a/.DS_Store b/.DS_Store
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -6,9 +6,7 @@ Depends: R (>= 3.4.0)
 Imports: FNN,
     ggplot2,
     mclust,
-    tourr,
     colorspace,
-    animation,
     pcaPP,
     stats,
     ks,

diff --git a/NAMESPACE b/NAMESPACE
@@ -7,7 +7,5 @@ export(use_KNN)
 import(ggplot2)
 import(stats)
 importFrom(FNN,knn.dist)
-importFrom(animation,saveGIF)
 importFrom(colorspace,rainbow_hcl)
 importFrom(nabor,knn)
-importFrom(tourr,animate_xy)
diff --git a/R/display_HDoutliers.R b/R/display_HDoutliers.R
@@ -7,9 +7,7 @@
 #' @param out A list containing output values produced by \code{\link[stray]{find_HDoutliers}}
 #' @param alpha Alpha level of the points
 #' @importFrom colorspace rainbow_hcl
-#' @importFrom animation saveGIF
 #' @import ggplot2
-#' @importFrom tourr animate_xy
 #' @export
 #' @examples
 #' data <- c(rnorm(100), 7, 7.5, rnorm(100, 20), 45)
@@ -46,8 +44,5 @@ display_HDoutliers <- function(data, out, alpha = 1) {
       xlab("Variable 1") +
       ylab("Variable 2")
     out_display
-  } else {
-    col <- ifelse(1:n %in% out$outliers, "red", "black")
-    tourr::animate_xy(data[, -(d + 1)], col = col, pch = 20)
   }
 }
diff --git a/R/find_HDoutliers.R b/R/find_HDoutliers.R
@@ -22,7 +22,7 @@
 #' set.seed(1234)
 #' data <- c(rnorm(1000, mean = -6), 0, rnorm(1000, mean = 6))
 #' outliers <- find_HDoutliers(data, knnsearchtype = "FNN_auto")
-#' display_HDoutliers(data, outliers)
+#' #display_HDoutliers(data, outliers)
 #'
 #'
 #' set.seed(1234)
@@ -32,7 +32,7 @@
 #' out <- tibble::as.tibble(matrix(5 * runif(2 * nout, min = -5, max = 5), ncol = 2, byrow = TRUE))
 #' data <- rbind(out, typical_data)
 #' outliers <- find_HDoutliers(data, knnsearchtype = "FNN_auto")
-#' display_HDoutliers(data, outliers)
+#' #display_HDoutliers(data, outliers)
 find_HDoutliers <- function(data, alpha = 0.01, k = 10,
                             knnsearchtype = c("FNN_auto", "FNN_brute", "nabor_brute"),
                             normalize = "unitize") {

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