new file:   4-neuralnet.R