如何使用一些apply函数来解决R中需要两个for循环的问题

I have a matrix, named "mat", and a smaller matrix, named "center". I have a matrix, named "mat", and a smaller mat