data(iris)
library(RSNNS)
library(clue)
iris = iris[sample(1:nrow(iris),length(1:nrow(iris))),1:ncol(iris)]
irisValues= iris[,1:4]
irisTargets = decodeClassLabels(iris[,5])
iris = splitForTrainingAndTest(irisValues, irisTargets, ratio=0.4)
km<-kmeans(iris$inputsTrain,3)
save(km,file=”km”)
kmをロードすると、それはload('km')
別のプログラムにあります。入力するiris$inputsTrain
かiris$inputsTest
、表示されます>NULL