Just start using R, so most of my questions maybe stupid in your opinion.
I'm sure your solution is much better than mine, but I can't quite understand it so far.
I'll try to make it.

Here is another question:
Now I got a 10*13 matrix, every row represents a time series (T=0-12) of the price of a stock, once stock price>=110 for 3 consecutive time steps, print that T, otherwise print 0 at the end of this time period.

And here is the code I tried. Although it's obviously wrong:
Tseries<-c(1:10)
T=0
for(i in 1:10){
  for(j in 1:13){
    if(S[i,j]>=110){T<-T+1
    }else{
        T<-0
      }Tseries[j]<-T
  }
}

What should I do to solve this question?
Thank you a lot.

for example:
suppose x vector x: 133.1115 106.6949 148.7925 138.0290 111.3889 132.4088 149.2900 128.8314 138.4674 143.7794 140.4188 125.6814 143.2901
high_run(x, 110)
[1]  1  0  1  2  3  4  5  6  7  8  9 10 11

then you know tht start from fourth, the number are consecutively larger than 110  (notice he index + 1 is the position)


if you run:


you got 3, which is the index for the position: 3 + 1 = 4. so you got it.

to get it work in matrix, it could not be more straightforward enough ....  

: argument is of length zero'.  近来总遇到