assignment1, submission Anna Ha, R-files