Two R scripts and expanded README.md