Description Usage Arguments Details Examples
This function performs the summary of perfomance of models fitter by run_models function
1 | run_models_performance(fit_run_model, df_valida, verbose = FALSE)
|
fit_run_model |
list generated by function run_models |
df_valida |
validation data frame |
verbose |
plot graphics of comparation between models |
Run Models Performance
details
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ## Not run:
library(labgeo)
library(dplyr)
data("c_stock")
vf = labgeo::factor_detect(c_stock, 40)
df = c_stock %>% mutate_at(vf,funs(factor)) %>% filter(stock_10 < 10)
dp = data_preparation(df = df, p = 0.20, prune = 0.99)
treino = dp$treino
teste = dp$teste
nm = names(treino)[1]
vrf = recursive_feature_elimination(treino,sizes = c(5,10,15,20,25,30,40),
nfolds = 5,cpu_cores = 7, metric = "Rsquared")
vsel = c(nm,vrf$optVariables)
dfsel = treino %>% select(one_of(vsel))
models = c("ridge", "rf", "cubist","pls")
fit_models = run_models(df = dfsel, models = models,
cpu_cores = 7, tune_length = 5, metric = "Rsquared")
dfresult = run_models_performance(fit_models, df_valida = teste, verbose = T)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.