lvq3(x, cl, codebk, niter=100*nrow(codebk$x), alpha=0.03, win=0.3, epsilon=0.1)
x
and
cl
giving the examples and classes.
Selects
niter
examples at random with replacement, and adjusts the nearest
two examples 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) cd0 <- olvq1(train, cl, cd) lvqtest(cd0, train) cd3 <- lvq3(train, cl, cd0) lvqtest(cd3, train)