Added svdnewton.R test code