关于循环next的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

> 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”呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Next ext Continuous function con

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)
  }))
}

prunusis 发表于 2015-5-4 02:46
i in seq()
这里错了
continuous = function(x) {

真的非常感谢！还想问一下，为什么按下面这么做的话会显示逻辑值是缺失的呢？

你传个图别人run很麻烦啊,i=6的时候i+3的下标越界了