data(candies, package = "HDANOVA")
gemC <- GEM(assessment ~ assessor*candy, data=candies)
# Neural network model
nn <- neuralnet(gemC, factor = "candy", hidden = c(2))
plot(nn, rep="best")
# Network weights (input and hidden layers)
nn$weights
Run the code above in your browser using DataLab