R week 2 test repo