Skip to contents

Create A Graph to Perform "One vs. Rest" classification.

Source: R/pipeline_ovr.R
mlr_graphs_ovr.Rd

Create a new Graph for a classification Task to perform "One vs. Rest" classification.

All input arguments are cloned and have no references in common with the returned Graph.

Usage

pipeline_ovr(graph)

Arguments

graph

Graph
Graph being wrapped between PipeOpOVRSplit and PipeOpOVRUnite. The Graph should return NULL during training and a classification Prediction during prediction.

Value

Graph

Examples

library("mlr3")

task = tsk("wine")

learner = lrn("classif.rpart")
learner$predict_type = "prob"

# Simple OVR
g1 = pipeline_ovr(learner)
g1$train(task)
#> $ovrunite.output
#> NULL
#> 
g1$predict(task)
#> $ovrunite.output
#> <PredictionClassif> for 178 observations:
#>     row_ids truth response     prob.1     prob.2     prob.3
#>           1     1        1 0.93301153 0.04437722 0.02261125
#>           2     1        1 0.93301153 0.04437722 0.02261125
#>           3     1        1 0.93301153 0.04437722 0.02261125
#> ---                                                        
#>         176     3        3 0.08896784 0.04157376 0.86945841
#>         177     3        3 0.08896784 0.04157376 0.86945841
#>         178     3        3 0.01729144 0.04484461 0.93786395
#> 

# Bagged Learners
gr = po("replicate", reps = 3) %>>%
  po("subsample") %>>%
  learner %>>%
  po("classifavg", collect_multiplicity = TRUE)
g2 = pipeline_ovr(gr)
g2$train(task)
#> $ovrunite.output
#> NULL
#> 
g2$predict(task)
#> $ovrunite.output
#> <PredictionClassif> for 178 observations:
#>     row_ids truth response     prob.1     prob.2      prob.3
#>           1     1        1 0.94464381 0.05147707 0.003879117
#>           2     1        1 0.94464381 0.05147707 0.003879117
#>           3     1        1 0.94464381 0.05147707 0.003879117
#> ---                                                         
#>         176     3        3 0.26352226 0.03891908 0.697558661
#>         177     3        3 0.26352226 0.03891908 0.697558661
#>         178     3        3 0.01850032 0.05186723 0.929632453
#> 

# Bagging outside OVR
g3 = po("replicate", reps = 3) %>>%
  pipeline_ovr(po("subsample") %>>% learner) %>>%
  po("classifavg", collect_multiplicity = TRUE)
g3$train(task)
#> $classifavg.output
#> NULL
#> 
g3$predict(task)
#> $classifavg.output
#> <PredictionClassif> for 178 observations:
#>     row_ids truth response     prob.1     prob.2     prob.3
#>           1     1        1 0.94463024 0.03159972 0.02377004
#>           2     1        1 0.94463024 0.03159972 0.02377004
#>           3     1        1 0.94463024 0.03159972 0.02377004
#> ---                                                        
#>         176     3        3 0.03047528 0.03001841 0.93950630
#>         177     3        3 0.03047528 0.03001841 0.93950630
#>         178     3        3 0.03047528 0.03001841 0.93950630
#>