From b2e0ad7374f60f5d94f3c69dc304d66ef2fa30c1 Mon Sep 17 00:00:00 2001 From: unknown Date: Tue, 21 May 2024 21:33:07 +0200 Subject: [PATCH] changed example to not exceed runtime --- R/feature_selection.R | 4 +--- man/select_features.Rd | 4 +--- 2 files changed, 2 insertions(+), 6 deletions(-) diff --git a/R/feature_selection.R b/R/feature_selection.R index 859203f..ece31fe 100644 --- a/R/feature_selection.R +++ b/R/feature_selection.R @@ -66,9 +66,7 @@ setGeneric("select_features", function(object, ...) { #' @examples #' path <- system.file("extdata", "test_data.csv", package = "MetaNLP", mustWork = TRUE) #' obj <- MetaNLP(path) -#' -#' obj2 <- select_features(obj, alpha = 0.7) -#' obj2 <- select_features(obj, lambda = "1se") +#' obj2 <- select_features(obj, alpha = 0.7, lambda = "min") #' #' #' @rdname select_features diff --git a/man/select_features.Rd b/man/select_features.Rd index 55743ef..51b7f7f 100644 --- a/man/select_features.Rd +++ b/man/select_features.Rd @@ -74,9 +74,7 @@ columns will be chosen. \examples{ path <- system.file("extdata", "test_data.csv", package = "MetaNLP", mustWork = TRUE) obj <- MetaNLP(path) - -obj2 <- select_features(obj, alpha = 0.7) -obj2 <- select_features(obj, lambda = "1se") +obj2 <- select_features(obj, alpha = 0.7, lambda = "min") }