R Programming(rprog-003) assignment 2