Neural network used for clasification with the iris dataset

irisClasificator.R

library(neuralnet)
library(dplyr)

random.iris <- sample_frac(iris,1)

miris <- random.iris[1:105,]
testd <- random.iris[106:150,]

miris <- mutate(miris,
       setosa = Species == "setosa",
       versicolor = Species == "versicolor",
       virginica = Species == "virginica",
       )
nn <- neuralnet(
    setosa + versicolor + virginica ~ Sepal.Length + Sepal.Width + Petal.Length + Petal.Width,
    data = miris,
    hidden = c(10,10),
    act.fct = "logistic",
    linear.output = FALSE
)
plot(nn)
Predict=compute(nn,testd)
Predict$net.result