if (requireNamespace("DMwR2", quietly = TRUE)) {
data(algae, package ="DMwR2")
clean.algae <- data.frame(algae[complete.cases(algae), ])
# defining a threshold on the relevance
IS.ext <-WERCSRegress(a7~., clean.algae, rel = "auto",
thr.rel = 0.7, C.perc = "extreme")
IS.bal <-WERCSRegress(a7~., clean.algae, rel = "auto", thr.rel = 0.7,
C.perc = "balance")
myIS <-WERCSRegress(a7~., clean.algae, rel = "auto", thr.rel = 0.7,
C.perc = list(0.2, 6))
# neither threshold nor C.perc defined
IS.auto <- WERCSRegress(a7~., clean.algae, rel = "auto")
}
Run the code above in your browser using DataLab