lvq2(x, cl, codebk, niter=100 * nrow(codebk$x), alpha=0.03, win=0.3)
x
and
cl
giving the examples and classes.
Selects
niter
examples at random with replacement, and adjusts the nearest
two examples in the codebook if one is correct and the other incorrect.
Kohonen, T. (1990) The self-organizing map.
Proc. IEEE
78, 1464-1480.
Kohonen, T. (1995)
Self-Organizing Maps.
Springer, Berlin.
train <- rbind(iris[1:25,,1],iris[1:25,,2],iris[1:25,,3]) test <- rbind(iris[26:50,,1],iris[26:50,,2],iris[26:50,,3]) cl <- factor(c(rep("s",25),rep("c",25), rep("v",25))) cd <- lvqinit(train, cl, 10) lvqtest(cd, train) cd0 <- olvq1(train, cl, cd) lvqtest(cd0, train) cd2 <- lvq2(train, cl, cd0) lvqtest(cd2, train)