R: Examples for 'class::multiedit'

### ** Examples

tr <- sample(1:50, 25)
train <- rbind(iris3[tr,,1], iris3[tr,,2], iris3[tr,,3])
test <- rbind(iris3[-tr,,1], iris3[-tr,,2], iris3[-tr,,3])
cl <- factor(c(rep(1,25),rep(2,25), rep(3,25)), labels=c("s", "c", "v"))
table(cl, knn(train, test, cl, 3))

   
cl   s  c  v
  s 25  0  0
  c  0 23  2
  v  0  2 23

ind1 <- multiedit(train, cl, 3)

pass 1 size 71

pass 2 size 71

pass 3 size 69

pass 4 size 64

pass 5 size 56

pass 6 size 52

pass 7 size 50

pass 8 size 47

pass 9 size 47

pass 10 size 47

pass 11 size 47

pass 12 size 47

length(ind1)

[1] 47

table(cl, knn(train[ind1, , drop=FALSE], test, cl[ind1], 1))

   
cl   s  c  v
  s 25  0  0
  c  0 25  0
  v  0 25  0

ntrain <- train[ind1,]; ncl <- cl[ind1]
ind2 <- condense(ntrain, ncl)

[1] 18
[1] 18 47

length(ind2)

[1] 2

table(cl, knn(ntrain[ind2, , drop=FALSE], test, ncl[ind2], 1))

   
cl   s  c  v
  s 25  0  0
  c  0 25  0
  v  0 25  0

Examples for 'class::multiedit'

Multiedit for k-NN Classifier