How to Write a For Loop in R