Description Usage Arguments Examples
suggest_accuracy
Compare performance for all model fits in the
Summary list based on Accuracy and Kappa metrics, together with training
time for a single tuning of each model fit.
1 | suggest_accuracy(addTo, modelTag = NULL, time = FALSE)
|
addTo |
Summary list that contains model fits to compare. |
modelTag |
Select model fits that contains modelTag in their name. |
time |
If TRUE, calculates average time to train model for a single tuning. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ## Not run:
library(mlbench)
data(PimaIndiansDiabetes)
index <- sample(seq_len(nrow(PimaIndiansDiabetes)), 500)
trainingSet <- PimaIndiansDiabetes[index, ]
testSet <- PimaIndiansDiabetes[-index, ]
x <- trainingSet[, -9]
y <- trainingSet[, 9]
x_test <- testSet[, -9]
y_test <- testSet[, 9]
sSummary <- list()
sSummary <- add_model(sSummary, x, y)
sSummary <- add_model(sSummary, x, y, model = c("C5.0Cost", "glmnet"), modelTag = "others")
suggest_accuracy(sSummary)
suggest_accuracy(sSummary, time = TRUE)
suggest_accuracy(sSummary, time = TRUE, modelTag = "glm|svm")
# vignette("modeval") #check a vignette for further details
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.