assignment 1 R files