Generic print function for local surrogate explainers

# S3 method for local_surrogate_explainer
print(x, ...)

Arguments

x	object of class local_surrogate_explainer
...	currently ignored

Examples

# Example based on apartments data from DALEX package.
library(DALEX)
library(randomForest)
library(localModel)
data('apartments')
mrf <- randomForest(m2.price ~., data = apartments, ntree = 50)
explainer <- explain(model = mrf,
                     data = apartments[, -1])
#> Preparation of a new explainer is initiated
#>   -> model label       :  randomForest  (  default  )
#>   -> data              :  1000  rows  5  cols 
#>   -> target variable   :  not specified! (  WARNING  )
#>   -> predict function  :  yhat.randomForest  will be used (  default  )
#>   -> predicted values  :  numerical, min =  1917.419 , mean =  3486.937 , max =  5842.92  
#>   -> model_info        :  package randomForest , ver. 4.6.14 , task regression (  default  ) 
#>   -> residual function :  difference between y and yhat (  default  )
#>   A new explainer has been created!  
model_lok <- individual_surrogate_model(explainer, apartments[5, -1],
                                        size = 500, seed = 17)
plot(model_lok)
model_lok
#>   estimated                                          variable original_variable
#> 1 3486.9367                                      (Model mean)                  
#> 2 3245.5658                                       (Intercept)                  
#> 3 -230.1591                                     surface > 125           surface
#> 4  516.2736 district = Mokotow, Ochota, Srodmiescie, Zoliborz          district
#>   dev_ratio response predicted_value        model
#> 1 0.5241099                 3145.381 randomForest
#> 2 0.5241099                 3145.381 randomForest
#> 3 0.5241099                 3145.381 randomForest
#> 4 0.5241099                 3145.381 randomForest