刚刚开始学习R 不久，遇到这么一个问题，代码运行老是报错，不知道错误出在哪里,以下是程序：

A1<-matrix(rep(0,167*166*167),nrow=167,ncol=166*167)
for(m in 1:167){
  for(n in (1+166*(m-1)):166*m){
    A1[m,n]<-1
  }
}

运行后报错为：Error in `[<-`(`*tmp*`, m, n, value = 1) : subscript out of bounds

请问哪位前辈知道这是错在哪里吗？非常感谢！