Examples for 'class::lvqinit'


Initialize a LVQ Codebook

Aliases: lvqinit

Keywords: classif

### ** Examples

train <- rbind(iris3[1:25,,1], iris3[1:25,,2], iris3[1:25,,3])
test <- rbind(iris3[26:50,,1], iris3[26:50,,2], iris3[26:50,,3])
cl <- factor(c(rep("s",25), rep("c",25), rep("v",25)))
cd <- lvqinit(train, cl, 10)
lvqtest(cd, train)
 [1] s s s s s s s s s s s s s s s s s s s s s s s s s c c v c c c c c c c c c c
[39] c c c c c v c c c v c c v c v v v v c v v v v v v v v v v v v v v c v c v
Levels: c s v
cd1 <- olvq1(train, cl, cd)
lvqtest(cd1, train)
 [1] s s s s s s s s s s s s s s s s s s s s s s s s s c c c c c c c c c c c c c
[39] c c c c c c c c c c c c v v v v v v v v v v v v v v v v v v v v v v v c v
Levels: c s v

[Package class version 7.3-21 Index]