解决R函数中的nrow/length（列表）错误

我有一个功能：

extract_tmp <- function(x,y)
{
  nr <- nrow(x$y)
  ind <- seq(6, nr, by = 12)
  out <- lapply(Map(seq, ind[ seq_along(ind) %% 2 == 1 ], ind[ seq_along(ind) %% 2 == 0 ]),
                function(i) x$y[i])
}

它返回：

Error in seq.default(6, nr, by = 12) : 'to' must be of length 1

Error in seq.default(6, nr, by = 12) : wrong sign in 'by' argument 

当我将

nrow（）

切换到

length（）

时，它返回：

Error in seq.default(6, nr, by = 12) : 'to' must be of length 1

Error in seq.default(6, nr, by = 12) : wrong sign in 'by' argument 

我已经阅读这个网站和故障排除了几个小时，但无法解决这些问题。其他信息：

length(JAN$tmp.2007.jan)
# 744
nrow(JAN$tmp.2007.jan)
# NULL
mode(JAN)
# "list"
mode(JAN$tmp.2007.jan)
# "numeric"

---

感谢您的帮助。

extract\u tmp
nrow
是一帧中的行数，对于向量没有任何意义。如果
x
是一个帧，
f
是该帧中的一列，则
nrow（x）=长度（x$f）
。用一个或另一个。哦，你又来了！谢谢我是根据你的建议来做的。照这个速度，我的论文得归功于你