Skip to content

Commit

Permalink
Fix undesired print
Browse files Browse the repository at this point in the history
  • Loading branch information
fouodo committed Nov 14, 2024
1 parent ba41b3b commit e094e7e
Show file tree
Hide file tree
Showing 4 changed files with 2 additions and 19 deletions.
1 change: 0 additions & 1 deletion R/Model.R
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
1 change: 0 additions & 1 deletion R/TrainLayer.R
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
2 changes: 1 addition & 1 deletion README.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -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)
```

Expand Down
17 changes: 1 addition & 16 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -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)
```

Expand Down

0 comments on commit e094e7e

Please sign in to comment.