verbose => verbosity

egenn · Nov 18, 2024 · eb7c679 · eb7c679
1 parent 0c406c8
commit eb7c679
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/resample.R b/R/resample.R
@@ -284,7 +284,7 @@ print.resample <- function(x, ...) {
 
 #' @export
 
-print1.resample <- function(x, verbosity = TRUE, ...) {
+print1.resample <- function(x, verbosity = 0, ...) {
   resampler <- attr(x, "resampler")
   if (resampler == "loocv") {
     .text <- "Leave-one-out crossvalidation"

diff --git a/R/rtMod.R b/R/rtMod.R
@@ -1623,7 +1623,7 @@ rtModCV <- R6::R6Class(
       # cat("              N of repeats:", self$n.repeats, "\n")
       cat(
         "      Outer resampling: ",
-        print1(self$resamples[[1]], verbose = FALSE),
+        print1(self$resamples[[1]], verbosity = 0),
         " (", singorplu(self$n.repeats, "repeat"),
         ")\n",
         sep = ""
@@ -1641,7 +1641,7 @@ rtModCV <- R6::R6Class(
         cat(
           "Mean Balanced Accuracy:",
           self$error.test.repeats.mean$Balanced.Accuracy,
-          "\nMean AUC:", self$error.test.repeats.mean$AUC, "\n"
+          "\n              Mean AUC:", self$error.test.repeats.mean$AUC, "\n"
         )
       } else {
         cat(