# NOT RUN {
library(neuralnet)
library(dummies)
library(dplyr)
x <- nn_model('iris', 'Petal.Length','modelo.nn', 'mean.nn', 'sd.nn', 0.05, 2000, 3, 30, 50, 30)
exe(x)
x <- nn_prediction('iris', 'Petal.Length')
exe(x)
print(prediccion.nn)
# }
Run the code above in your browser using DataLab