R语言 如何求连续数据的最大个数

dataorz 发表于 2015-1-30 09:15

如果数据是0112321101022102111，请问肿么求 小于2的连续个数的最大值呢？谢谢

纯粹的C语言代码（除了length()和max()函数）本人还是R的大菜鸟，只能用C来凑合了。。。。。。
x<-sample(c(0,1),50,rep=T)
fun<-function(x){
k<-0
n<-length(x)
a<-n-1      
m<-rep(0,n)
for(i in 1:a)
{
  if((x[i]+x[i+1])<2)
  {k<-0}
  if(x[i]==1 & x[i+1]==1)
  {
   k<-k+1
   m[i]<-k
   }
  }
max_m<-max(m)+1
return(max_m)
}
fun(x)

hpxj 发表于 2015-4-11 09:55
如果数据是0112321101022102111，请问肿么求 小于2的连续个数的最大值呢？谢谢

可以先把大于等于2的值化为0

kaifengedu 发表于 2015-1-29 19:55
一个粗略的代码

请问下，如果应用到实际中，求一列字符串连续选择A的最大个数，用这个代码，结果是一列里面没有A，但求出来是1，这种情况怎么处理呢？