使用 R 编写函数，请问如何将一个列数已知的矩阵作为函数参数，并在函数体中对列进行操作？譬如，怎么让下面的代码通过？

g = function(tet,x){
   m1 = x[,1]*((x[,3]-x[,2])-tet*(x[,2]-x[,1]))
   m2 = x[,1]*((x[,4]-x[,3])-tet*(x[,3]-x[,2]))
   m3 = x[,2]*((x[,4]-x[,3])-tet*(x[,3]-x[,2]))
   f = cbind(m1,m2,m3)
   return(f)
}