R 3.3.3（Windows Server 2016） - 相关性测试中的“不兼容的维度”

Question

    while (x < as.numeric(s_max)){
      len2<-length(subdata2)
      resize<-approx(seq_along(subdata2), subdata2, n = len2*x)$y
      len<-length(resize)
      initial<-(length(subdata1)*(scale))+step
      for (i in initial){
          testdata3<-testdata1[(i):(len+(i))]
          corl<-cor(testdata3, resize, use = "na.or.complete")
           if(corl > corr) {
            maxes<-c(corl, (len/len2), i)
            write.table(maxes,"a.txt", append = TRUE, quote = FALSE, row.names = FALSE, col.names = FALSE)

            }
          }
      x<-(x+0.01)
      setTxtProgressBar(pb, x)
    }

我在相关性测试中得到不兼容的维度，这是奇怪的，因为testdata3＆lt; -testdata1 [（i）:( len +（i））]并且我正在比较testdata3以调整其长度等于len，所以它们都应该是相同的长度。我误入歧途试图解决这个问题。任何帮助将不胜感激。

我得到的尺寸是446对445