putting mapply in loop “causes the condition has length > 1” error

I am trying to be more elegant in my coding and leveraging the apply functions. I wanted to stick one in a loop like so

How can I accelerate this R code & for loops?

Here is the R code I have right now: