diff --git a/R/Model.R b/R/Model.R
index 053ca0d..ea711cd 100644
--- a/R/Model.R
+++ b/R/Model.R
@@ -182,7 +182,6 @@ Model <- R6Class("Model",
                      pred_param_data = restricted_testing_data
                      # Use parameter interface to predict.
                      param_interface = private$lrner$getParamInterface()
-                     print(param_interface)
                      # Set object and data parameters.
                      if (is.null(param_interface)) {
                        pred_param[["object"]] = pred_param_object
diff --git a/R/TrainLayer.R b/R/TrainLayer.R
index eee972b..5efd220 100644
--- a/R/TrainLayer.R
+++ b/R/TrainLayer.R
@@ -189,7 +189,6 @@ TrainLayer <- R6Class("TrainLayer",
                           }
                           testing_data = new_layer$getTestData()
                           # Predicting: Data and model exist on this layer.
-
                           model = self$getModel()
                           pred_data = model$predict(testing_data = testing_data,
                                                     ind_subset = ind_subset)
diff --git a/README.Rmd b/README.Rmd
index 8e29caf..f3d4a4e 100644
--- a/README.Rmd
+++ b/README.Rmd
@@ -155,7 +155,7 @@ varsel_me <- VarSel$new(id = "varsel_methylation",
 
 ```{r varsel, include=TRUE, eval=TRUE}
 set.seed(5467)
-var_sel_res <- training$varSelection()
+var_sel_res <- training$varSelection(verbose = FALSE)
 print(var_sel_res)
 ```
 
diff --git a/README.md b/README.md
index 3feb498..bb111bb 100644
--- a/README.md
+++ b/README.md
@@ -244,22 +244,7 @@ varsel_me <- VarSel$new(id = "varsel_methylation",
 
 ``` r
 set.seed(5467)
-var_sel_res <- training$varSelection()
-```
-
-    ## Variable selection on layer geneexpr started.
-
-    ## Variable selection on layer geneexpr done.
-
-    ## Variable selection on layer proteinexpr started.
-
-    ## Variable selection on layer proteinexpr done.
-
-    ## Variable selection on layer methylation started.
-
-    ## Variable selection on layer methylation done.
-
-``` r
+var_sel_res <- training$varSelection(verbose = FALSE)
 print(var_sel_res)
 ```