游标扩展

findruns1<-function(x,k){
  n<-length(x)
  runs<-vector(length=n)
  count<-0
  for(i in 1:(n-k+1)){
    if (all(x[i:(i+k-1)])) {
      count<-count+1
      runs[count]<-i
    }
  }
  if(count>0){
    runs<-runs[1:count]
  } else runs <-NULL
 return(runs)
}

preda<- function(x,k) {
  n<-length(x)
k2<-k/2
pred<-vector(length=n-k)
for (i in 1:(n-k)){
  if (sum(x[i:(i+(k-1))])>=k2) pred[i]<-1 else pred[i] <-0
}
return(mean(abs(pred-x[(k+1):n])))
}

ass<-function(x){
  k<-NULL
  for (i in x) {
    if (i >=1) k<-c(k,1)
    else if (i <=-1){
      k<-c(k,-1)
    }else{
      k<-c(k,0)
    }
  }
  return(k)
}