just some playing around with neural networks in R