# NOT RUN {
demo(iris)
# }
# NOT RUN {
demo(rbfDDA_spiralsSnnsR)
# }
# NOT RUN {
data(iris)
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.15)
iris <- normTrainingAndTestSet(iris)
model <- rbfDDA(iris$inputsTrain, iris$targetsTrain)
summary(model)
plotIterativeError(model)
# }
Run the code above in your browser using DataLab