Initial test for R Programming Week 3 assignment