这是我做R语言的Assignments Week2 的答案。不知道为何，我不能自动上传