library(theft)
features <- theft::calculate_features(theft::simData,
feature_set = NULL,
features = list("mean" = mean, "sd" = sd))
classifiers <- classify(features,
by_set = FALSE,
n_resamples = 3)
interval(classifiers,
by_set = FALSE,
type = "sd",
interval = 1)
Run the code above in your browser using DataLab