Week6 R Quiz