在函数中使用Apply

Question

我在R

中有以下矩阵

mat<-matrix(1:100, nrow = 10, ncol = 10)  
dimnames(mat)[[1]] <- letters[1:10]  
dimnames(mat)[[2]] <- 1:10  

我想使用apply函数。当我在工作室的提示下，我没有任何特别的问题 例如

sumRows<-apply(mat,2,sum)  
divMat<-apply(mat,1,"/",sumRows)  

当我试图将上述代码封装在函数E.G上时，问题就出现了。

calcDivision<-function(mat)  
{  
 sumRows<-apply(mat,2,sum)  
 divMat<-apply(mat,1,"/",sumRows)
 return(divMat)
}

有什么想法吗？