一个程序上的小问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有个数字序列，例如：1，2，3，4，5，6，7，3，4，5，6
不知道有没有不用循环判断来取出最后的3，4，5，6

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：小问题 不知道 有没有 程序

判断的标准时什么了？

是取后几个还是与前面重复的数字段了？

判断的标准就是取突然变小以后的数字序列
因为此序列为两段递增序列，但是在两段衔接处
数值是突然变小了，我就是要取出这个节点的位置
从而把这段数字序列分为两段，其实用循环判断的话
是可以实现的，不过因为实际上数据量极大， 这样做
效率很低

也提供一种思路吧

1. a<-c(1:10,2:5)
   
2. la<-length(a)
   
3. a[(which(a[-1]<a[-la])+1):la]

复制代码

bob_hai 发表于 2011-9-29 12:51
判断的标准就是取突然变小以后的数字序列
因为此序列为两段递增序列，但是在两段衔接处
数值是突然变小了 ...

和楼上一样，不过可以用diff函数
a[(which(diff(a) < 0)[1]+1) : la]

qoiqpwqr 发表于 2011-9-29 21:08
和楼上一样，不过可以用diff函数
a[(which(diff(a) < 0)[1]+1) : la]

用diff看起来更漂亮

还可以这样，a[(which.min(diff(a)<0)+1):la]

谢谢大家了， 真是众人堆柴火焰高啊