# Copied from caimiao0714
t = c(0, 0, 0, 3.4, 0, 2.5, 6.2, 0, 1.4, 2.8, 0.6, -1, -2.5, 1.6, 3, 2, 0, 0, 0, 1.6, 0, 0, 1.2, 0, 1, 0)

# Starting index according to the critria
start <- which.max( ( head(t, -2)*head( t[-1], -1 )*tail(t, -2) ) != 0 )
        
# Last non-zero element
end <- max( which(t != 0) )
        
# All elements selected
slct <- t[start:end]
        
# Results
c( t, length(slct), sum(slct), mean(slct) )

# Do note that here it is assumed there are elements that fulfills the defined criteria

谢谢指导！！非常感谢

你好，我用了我的数据运行以后，提示这个错误：Error in start:end : result would be too long a vector
In addition: Warning message:
In max(which(ax[, i] != 0)) :
  no non-missing arguments to max; returning -Inf

完全不知道什么意思
是否是因为数据量太大？我的数据表有365行107列。
请问这个应该怎么处理？
附上我的代码和数据表，数据原本是csv格式，为了上传方便转成xlsx格式的了。

我似乎找到原因了，当某列都是零的时候就报错，请问是否是这个原因呢？