R script plus chanes to README