Error in modes[i, ] <- mr : number of items to replace is not a multiple of replacement length in my loop

Question

I have been trying to run a for loop to calculate the niche size and credible intervals for each of my seven fish species and I keep getting this error. Error in modes[i, ]