Update R Script
Add CodeBook.md