prepped R file for assignment #1