brulee

Installation

install.packages("brulee")

# install.packages("pak")pak::pak("tidymodels/brulee")

Example

library(brulee)library(recipes)library(yardstick)data(bivariate,package="modeldata")set.seed(20)nn_log_biv<- brulee_mlp(Class~ log(A)+ log(B),data=bivariate_train,epochs=150,hidden_units=3)# We use the tidymodels semantics to always return a tibble when predictingpredict(nn_log_biv,bivariate_test,type="prob")|>   bind_cols(bivariate_test)|>   roc_auc(Class,.pred_One)#> # A tibble: 1 × 3#>   .metric .estimator .estimate#>   <chr>   <chr>          <dbl>#> 1 roc_auc binary         0.840

library(recipes)rec<-   recipe(Class~.,data=bivariate_train)|>    step_YeoJohnson(all_numeric_predictors())|>   step_normalize(all_numeric_predictors())set.seed(20)nn_rec_biv<- brulee_mlp(rec,data=bivariate_train,epochs=150,hidden_units=3)# A little betterpredict(nn_rec_biv,bivariate_test,type="prob")|>   bind_cols(bivariate_test)|>   roc_auc(Class,.pred_One)#> # A tibble: 1 × 3#>   .metric .estimator .estimate#>   <chr>   <chr>          <dbl>#> 1 roc_auc binary         0.862

Code of Conduct