Aliases: condense
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] 12 [1] 12 28 [1] 12 28 63 [1] 12 28 33 63 [1] 12 28 33 57 63 [1] 12 28 33 35 57 63 [1] 12 28 33 35 57 63 74 [1] 12 28 33 35 44 57 63 74 [1] 12 28 33 35 44 57 63 70 74 [1] 12 28 33 35 44 46 57 63 70 74 [1] 12 28 30 33 35 44 46 57 63 70 74 [1] 12 28 30 33 35 44 46 57 63 70 72 74 [1] 12 28 30 33 35 44 46 48 57 63 70 72 74
knn(train[keep, , drop=FALSE], 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 c 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, , drop=FALSE], 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 c v c v v v v v v v v v c c Levels: c s v