为什么GMM不起作用？

Question

我使用gmm包估算一个简单的模型：

library(gmm)
n<-100
a <- rnorm(n, mean = 4, sd = 2)
b <- 2*a + rnorm(n, mean = 0, sd = 1)
z<- as.matrix(cbind(a, b))

g <- function(tet, data)
 {
  m1 <- (data[,2]-(tet*data[,1]))*data[,1]
  return(m1)
 }

gmm(g, z, 1.5)

我收到以下错误：

  

colMeans（gt）出错：＆＃39; x＆＃39;必须是至少两维的数组

知道我做错了吗？