Create plot_nnet.R