R 获取行数差异的错误

我一直收到这个错误代码“error in

[我不知道water.data是什么，或者函数的一半是做什么的，但是我很快下载了这个包，如果你添加
打印（x）
在为所有日期添加数据的for循环中，您会立即看到，对于
x=7
，bin.1中有163行，而不是182行。我不知道这意味着什么，但如果只是认为1:182只是一个用于保存值的变量，那么如果要添加的向量长度太小，您可以只填充一些NAs。因此，可以这样做差不多

discharge.data <- as.data.frame(data.frame(matrix(0, 
                                                  nrow = 182, ncol = 10))) 

## Append data for all dates
for(x in 1:10){
  bin.1 <- importDVs(staid = "02198375", code = "00060", stat = "00003",
                     sdate = flow.dates[x, 1],
                     edate = flow.dates[x, 2])
  bin.2 <- cleanUp(bin.1, task = "fix", replace = 0.001)
  bin.3 <- fillMiss(bin.1, block = 2, pmiss = 5, model = "trend", 
                    smooth = FALSE, log = "y")
  bin.4 <- bin.3[, c(2, 3)]
  colnames(bin.4) <- c(flow.dates[x, 3])

  #pad some NAs if too short vector 
  vec = bin.4[,1]
  len = length(vec)
  if (len < 182) {
    vec = c(vec,rep(NA,182-len))
  }

  discharge.data[, x] <- vec
}

discharge.data我不知道water.data是什么，也不知道函数的一半是什么，但是我很快下载了这个包，如果你添加了
print（x）
在为所有日期添加数据的for循环中，您会立即看到，对于
x=7
，bin.1中有163行，而不是182行。我不知道这意味着什么，但如果只是认为1:182只是一个用于保存值的变量，那么如果要添加的向量长度太小，您可以只填充一些NAs。因此，可以这样做差不多

discharge.data <- as.data.frame(data.frame(matrix(0, 
                                                  nrow = 182, ncol = 10))) 

## Append data for all dates
for(x in 1:10){
  bin.1 <- importDVs(staid = "02198375", code = "00060", stat = "00003",
                     sdate = flow.dates[x, 1],
                     edate = flow.dates[x, 2])
  bin.2 <- cleanUp(bin.1, task = "fix", replace = 0.001)
  bin.3 <- fillMiss(bin.1, block = 2, pmiss = 5, model = "trend", 
                    smooth = FALSE, log = "y")
  bin.4 <- bin.3[, c(2, 3)]
  colnames(bin.4) <- c(flow.dates[x, 3])

  #pad some NAs if too short vector 
  vec = bin.4[,1]
  len = length(vec)
  if (len < 182) {
    vec = c(vec,rep(NA,182-len))
  }

  discharge.data[, x] <- vec
}

discharge.data