区间长度计算问题

例如a=c(1:5,2:7,9:12,14:15)
b=c[!duplicated(a)]  #去重复后为[1]1 2 3 4 5 6 7 9 10 11 12 14 15
我想知道b的每个区间的长度的和    故
m=1
for (i in length(b):2) {
  if (b[i]==b[i-1]) m=m+1
}
m                  
得到m=13
  问题是当数据小的时候这样运行数据还是挺快的，但当a的数据很大时，大概3的7次方的数据量，这样运行就很慢了，
我想知道有什么函数直接出来么，能避免用for的。谢谢。

问题：比如说 1:5,7:9,12:13 length的话是10，但我想知道的是（5-1）+（9-7）+（13-12） =7

上面例子可以用非循环的方式来解决，如下：

a=c(1:5,7:9,12:13)
sum(diff(a)==1)
[1] 7

不知是否你想要的？

首先 lz你给的代码貌似很有问题。。。因此并不是很理解你的问题。。。

根据你给的这个m=13，感觉应该是前两项做差求和吧应该是？那就是一阶差分求和？

那可以这样

1. a=c(1:5,2:7,9:12,14:15);
   
2. b=c[!duplicated(a)];
   
3. sum(diff(b));

复制代码

求证1加1 发表于 2013-10-16 18:20
首先 lz你给的代码貌似很有问题。。。因此并不是很理解你的问题。。。

根据你给的这个m=13，感觉应该是前 ...

a=c(1:5,2:7,9:12,14:15)
b=a[!duplicated(a)]
m=1
for(i in length(b):2{
if (b==b[i-1] m=m+1
}
m
是这个  输错了个字母。就是想知道得到的b在输入x轴后所占的长度

yywan0913 发表于 2013-10-17 08:31
a=c(1:5,2:7,9:12,14:15)
b=a[!duplicated(a)]
m=1

重点不在你的那个字母，那个我考到R里的时候就已经顺手改了，关键是你的循环。。。。劳烦lz把自己跑成功的代码直接copy过来吧

如果你指的是b在x轴中占得长度，窃以为用最大的减去最小的？

如果是一个元素占一个单位的话，length()一下?

yywan0913 发表于 2013-10-17 08:31
a=c(1:5,2:7,9:12,14:15)
b=a[!duplicated(a)]
m=1

重点不在你的那个字母，那个我考到R里的时候就已经顺手改了，关键是你的循环。。。。劳烦lz把自己跑成功的代码直接copy过来吧

如果你指的是b在x轴中占得长度，窃以为用最大的减去最小的？

如果是一个元素占一个单位的话，length()一下?

求证1加1 发表于 2013-10-17 09:15
重点不在你的那个字母，那个我考到R里的时候就已经顺手改了，关键是你的循环。。。。劳烦lz把自己跑成功的 ...

比如说 1:5,7:9 ，12:13 length的话是10，但我想知道的是（5-1）+（9-7）+（13-12）   =7
就是这个意思

求证1加1 发表于 2013-10-17 09:15
重点不在你的那个字母，那个我考到R里的时候就已经顺手改了，关键是你的循环。。。。劳烦lz把自己跑成功的 ...

a=c(1:5,2:7,9:12,14:15)
b=a[!duplicated(a)]
m=0
for(i in length(b):2){
if (b-b[i-1]==1) m=m+1
}
m
[1]10

yywan0913 发表于 2013-10-17 10:37
a=c(1:5,2:7,9:12,14:15)
b=a[!duplicated(a)]
m=0

a=c(1:5,2:7,9:12,14:15)
b=a[!duplicated(a)]
m=0
for(i in length(b):2){
if (b-b[i-1]==1) m=m+1
}
m
[1]10
这个

yywan0913 发表于 2013-10-17 10:38
a=c(1:5,2:7,9:12,14:15)
b=a[!duplicated(a)]
m=0

a=c(1:5,2:7,9:12,14:15)
b=a[!duplicated(a)]
m=0
for(i in length(b):2){
if (b-b[i-1]==1) m=m+1
}
m
[1]10
晕   怎么一点回复就变了