updated solution code
and rPractice.Rmd