etc2450 ass1 R code