This is for the 2nd Programming Assignment in R