Week 1 png and r code