data(iris3)
irisDat <- data.frame(rbind(iris3[,,1], iris3[,,2], iris3[,,3]),
species = as.factor(c(rep("s",50), rep("c",50), rep("v",50))))
ir.nn2 <- Nnet(species ~ ., irisDat, 0.2, 2)
Run the code above in your browser using DataCamp Workspace