我有一个名为DATA of matrix的大数据文件，包含1200行和19列。如果两个连续行之间的差异是1秒，并且如果给定日期的测量数量超过50，我想计算第16列的平均值。
以下是我的尝试：
N<-length(DATA)
for (i in 1:N)
{
if((DATA[i+1,2]-DATA[i,2])==1&(N>=50)){
mean<-mean(DATA[,16])}
}
mean
Error in DATA[i + 1, 2] : subscript out of bounds
如何避免此错误？