this is a resposity for my R code in Coursea