Week6 R Assignment