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”)
当我加载公里时,那是load('km')
在另一个程序中。并输入iris$inputsTrain
或iris$inputsTest
显示>NULL