Shorten examples for the check

Author: OlaPaluszynska

R/explain_forest.R

@@ -15,8 +15,10 @@
 #' @import DT
 #'
 #' @examples
+#' \dontrun{
 #' forest <- randomForest::randomForest(Species ~ ., data = iris, localImp = TRUE)
-#' explain_forest(forest, vars = names(iris))
+#' explain_forest(forest, interactions = TRUE)
+#' }
 #'
 #' @export
 explain_forest <- function(forest, interactions = FALSE, data = NULL, vars = NULL, no_of_pred_plots = 3, pred_grid = 100,

R/measure_importance.R

@@ -166,8 +166,8 @@ measure_importance <- function(forest, mean_sample = "top_trees", measures = NUL
 #' @importFrom data.table frankv
 #'
 #' @examples
-#' forest <- randomForest::randomForest(Species ~ ., data = iris, localImp = TRUE)
-#' important_variables(measure_importance(forest))
+#' forest <- randomForest::randomForest(Species ~ ., data = iris, localImp = TRUE, ntree = 300)
+#' important_variables(measure_importance(forest), k = 2)
 #'
 #' @export
 important_variables <- function(importance_frame, k = 15, measures = names(importance_frame)[2:5],
@@ -286,7 +286,7 @@ plot_multi_way_importance <- function(importance_frame, x_measure = "mean_min_de
 #'
 #' @examples
 #' forest <- randomForest::randomForest(Species ~ ., data = iris, localImp = TRUE)
-#' plot_importance_ggpairs(measure_importance(forest))
+#' plot_importance_ggpairs(measure_importance(forest), measures = c("mean_min_depth", "times_a_root"))
 #'
 #' @export
 plot_importance_ggpairs <- function(importance_frame, measures =
@@ -320,7 +320,7 @@ plot_importance_ggpairs <- function(importance_frame, measures =
 #'
 #' @examples
 #' forest <- randomForest::randomForest(Species ~ ., data = iris, localImp = TRUE)
-#' plot_importance_ggpairs(measure_importance(forest))
+#' plot_importance_ggpairs(measure_importance(forest), measures = c("mean_min_depth", "times_a_root"))
 #'
 #' @export
 plot_importance_rankings <- function(importance_frame, measures =

R/min_depth_interactions.R

@@ -64,8 +64,8 @@ min_depth_interactions_values <- function(forest, vars){
 #' @importFrom data.table rbindlist
 #'
 #' @examples
-#' forest <- randomForest::randomForest(Species ~ ., data = iris, ntree = 200)
-#' min_depth_interactions(forest, names(iris))
+#' forest <- randomForest::randomForest(Species ~ ., data = iris, ntree = 100)
+#' min_depth_interactions(forest, c("Petal.Width", "Petal.Length"))
 #'
 #' @export
 min_depth_interactions <- function(forest, vars = important_variables(measure_importance(forest)),
@@ -125,8 +125,8 @@ min_depth_interactions <- function(forest, vars = important_variables(measure_im
 #' @import ggplot2
 #'
 #' @examples
-#' forest <- randomForest::randomForest(Species ~ ., data = iris, ntree = 200)
-#' plot_min_depth_interactions(min_depth_interactions(forest, names(iris)))
+#' forest <- randomForest::randomForest(Species ~ ., data = iris, ntree = 100)
+#' plot_min_depth_interactions(min_depth_interactions(forest, c("Petal.Width", "Petal.Length")))
 #'
 #' @export
 plot_min_depth_interactions <- function(interactions_frame, k = 30,