olvq1(x, cl, codebk, niter=40 * nrow(codebk$x), alpha=0.3)
x and
cl giving
the examples and classes.
Selects
niter examples at random with replacement, and adjusts the
nearest example in the codebook for each.
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)
cd1 <- olvq1(train, cl, cd)
lvqtest(cd1, train)