# NOT RUN {
library(spnn)
library(datasets)
data(iris)
# shuffle the iris data set
indexRandom <- sample(1:nrow(iris), size = nrow(iris), replace = FALSE)
# use 100 observations for training set
trainData <- iris[indexRandom[1:100],]
# use remaining observations for testing
testData <- iris[indexRandom[101:length(indexRandom)],]
# fit spnn
spnn <- spnn.learn(set = trainData, category.column = 5)
# estimate probabilities
predictions <- spnn.predict(nn = spnn, newData = testData[,1:4])
# }
Run the code above in your browser using DataLab