It's project for R training I took online