added R files and png