# \donttest{
load(system.file("extdata/ECGExample.rda",package = "TSEAL"))
labels <- c(rep(1, 5), rep(2, 5))
CM <- KFCV(ECGExample, labels, "haar", "linear",
maxvars = 5,
features = c("Var"), returnClassification = FALSE
)
# or with VStep
CMV <- KFCV(ECGExample, labels, "haar", "linear",
k = 5,
VStep = 5,
features = c("Var"), returnClassification = FALSE
)
# }
Run the code above in your browser using DataLab