Speed up the loop operation in R (2010)