Aliases: reduce.nn
Keywords: classif
### ** Examples train <- rbind(iris3[1:25,,1], iris3[1:25,,2], iris3[1:25,,3]) test <- rbind(iris3[26:50,,1], iris3[26:50,,2], iris3[26:50,,3]) cl <- factor(c(rep("s",25), rep("c",25), rep("v",25))) keep <- condense(train, cl)
[1] 35 [1] 35 73 [1] 20 35 73 [1] 20 35 65 73 [1] 20 30 35 65 73 [1] 20 30 35 61 65 73 [1] 20 30 35 46 61 65 73 [1] 20 30 35 46 61 65 70 73 [1] 20 30 35 46 57 61 65 70 73 [1] 20 30 35 44 46 57 61 65 70 73 [1] 20 30 35 44 46 57 61 65 70 73 74 [1] 20 30 35 44 46 48 57 61 65 70 73 74
knn(train[keep,], test, cl[keep])
[1] s s s s s s s s s s s s s s s s s s s s s s s s s c c v c c c c c v c c c c [39] c c c c c c c c c c c c v v c v v v v v c v v v v c v v v v v v v v v v c Levels: c s v
keep2 <- reduce.nn(train, keep, cl) knn(train[keep2,], test, cl[keep2])
[1] s s s s s s s s s s s s s s s s s s s s s s s s s c c v c c c c c v c c c c [39] c c c c c c c c c c c c v v c v v v v v c v v v v c v v v v v v v v v v c Levels: c s v