r reproducible data coursework