使用R 软件包gmm, 为何显示下标出界啊，百思不得其解

x<-rnorm(100)
y<-x+rnorm(100)
g<-function(x,tet){
x<-as.matrix(x,,2)
x1<-x[,1]
y2<-x[,2]
z<-(y2-tet[1]-tet[2]*x1)
m<-cbind(z,z*x1^x1)
m
}
xy<-as.matrix(cbind(x,y))
gmm(g,x=xy,t0=c(0,0))
运算的结果是      错误于P$g(P$t0, x) : 下标出界
大家帮忙看看是怎么回事，谢谢大家了