Displaying 1 result from an estimated 1 matches for "__________i".
Did you mean:
__________
2013 Mar 25
1
Newbie code to count runs of up or down moves
...lt;-length(zdiff)nx<-zdifff<-function(x) {
for (k in 1:n){ for (i in 1:n-k){ if
(all(x[i] * x[i-1] > 0) && ((x[i+k+1] * x[i+k]) < 0)
y[k]<-y[k]+1 } }
return(y)}f(x)__________I get back > z [1] 3 1 4 5 2 1 0 3 5 8> length(z)[1]
10> y<-c(0,0,0,0,0,0,0,0,0,0)> y [1] 0 0 0 0 0 0 0 0 0 0> length(y)[1] 10>
zdiff = diff(z)> zdiff[1] -2 3 1 -3 -1 -1 3 2 3> n<-length(zdiff)> n[1]
9> x<-zdiff> > f<-function(x) + {+...