r reproducible data coursework 1