关于循环next的问题

1405

收藏 2015-05-03

> p
[1]  1  2  3  4  5  6  7  8  9 10
> continuous
function(x) {
  v<-NULL
  for (i in seq())
{
if ((x[i]+1)!=x[i+1])next
      if ((x[i]+2)!=x[i+2]) next
if ((x[i]+3)!=x[i+3]) next
if ((x[i]+4)!=x[i+4])next
v<-rbind(v,i)
  }
  return(v)
  }
> continuous(p)
  [,1]
i 1

目标是想识别出连续4个数的值都为1的位置，比如1的后面如果是2，6，7，8就不行，如果是2，3，4，5就可以返回。按理输入p后continuous(p)之后返回 1 2 3 4 5 6的，但是为什么只返回“1”呢？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

prunusis

2015-5-4 02:46:47

i in seq()
这里错了
continuous = function(x) {
  if (length(x) < 4) {
return(NULL)
  }
  d = diff(x)
  which(sapply(1:(length(x) - 3), function(i) {
all(d[i + (0:3)] == 1)
  }))
}