R call variable in loop, Thanks for your help