Updated R with nnet function. Getting OOM at 500 items
while loop with step