if (FALSE) {
if (requireNamespace("DMwR2", quietly = TRUE)) {
data(algae, package ="DMwR2")
clean.algae <- data.frame(algae[complete.cases(algae), ])
alg1 <- OSSClassif(season~., clean.algae, dist = "HVDM",
Cl = c("spring", "summer"))
alg2 <- OSSClassif(season~., clean.algae, dist = "HEOM",
Cl = c("spring", "summer"), start = "Tomek")
alg3 <- OSSClassif(season~., clean.algae, dist = "HVDM", start = "CNN")
alg4 <- OSSClassif(season~., clean.algae, dist = "HVDM", start = "Tomek")
alg5 <- OSSClassif(season~., clean.algae, dist = "HEOM", Cl = "winter")
summary(alg1$season)
summary(alg2$season)
summary(alg3$season)
summary(alg4$season)
summary(alg5$season)
}
}
Run the code above in your browser using DataLab