Simple R script that plot a simple neural network