Use loops to manipulate cross-validation in R

Question

I am trying to further evaluate cross-validation results across every fold by using a loop. To do so, I have attempted to extract indices for each fold in a RF model and apply t