# \donttest{
load(system.file("extdata/ECGExample.rda",package = "TSEAL"))
# The dataset has the first 5 elements of class 1
# and the last 5 of class 2.
labels <- c(rep(1, 5), rep(2, 5))
result <- testFilters(ECGExample, labels, features=c("var","cor"),
filters= c("haar","d4"), maxvars = 3)
# }
Run the code above in your browser using DataLab