data(iris)
#shuffle the vector
iris <- iris[sample(1:nrow(iris),length(1:nrow(iris))),1:ncol(iris)]
irisValues <- normalizeData(iris[,1:4], "norm")
irisTargets <- decodeClassLabels(iris[,5])
splitForTrainingAndTest(irisValues, irisTargets, ratio=0.15)Run the code above in your browser using DataLab