R snow example and Rscript, closer to being correct and complete