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)