Add r script and ReadMe