check in neuralnet.R