Run a for loop, but R only completes the first iteration

Question

I am trying to do variable selection by correlation, below are my codes. And every time I run the code, it tells me that ZTRN%*% bHat is a non-conformable argument. And then