R Programming Assignment Solution on Loop in R