I use gmm
package to estimate a simple model:
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)
I get the following error:
Error in colMeans(gt) : 'x' must be an array of at least two dimensions
Any idea what I am doing wrong?