如何将一列数中与上一个数之差小于4的数变为上一个数

想实现这个功能不知道怎么编有a、b、c、d、e、f等等按照从小到大排列的一列数
如图所示

a

b

c

d

e

f

h

首先比较第一个数与第二个数的差，即上图的 a与b的差
如果a-b》4 不用做任何处理 直接开始比较第二个数与第三个数的差（为上图的b与c的差比较规则同第一个数与第二个数的比较规则）

如果a-b<4 用a替换掉b 数据变为

a

a

c

d

e

f

h

然后接着比较第二个数与第三个数的差（此时第二个数被替换为a 所以比较的是a与c的差，规则同第一个数与第二个数比较）
然后循环比较完整个数列的值完成全部需要替换的数。



这个是自己写的code 一直跑不出来结果不知道那错了 求指点
var6就是要处理的那列向量的名字
week是我自己重新设定的一个矩阵
use e4,clear
mat week=[38637]
local total=_N
forval i = 1/·total‘{
preserve
sort Date
local b= week[`i',1]
local a = var6[`i+1']

if `a'-`b'<4{
mat week=[week \ `a']
}
else{
mat week=[week \ `b']
}
restore
}

1. clear
   
2. input var
   
3. 8
   
4. 3
   
5. 1
   
6. 2
   
7. 6
   
8. 5
   
9. 3
   
10. end
    
11. 
    
12. local i=2
    
13. while `i'<=7 {
    
14. local j=`i'-1
    
15. if (var[`j']-var[`i']<4) {
    
16. replace var=var[`i'-1] in `i'
    
17. }
    
18. else {
    
19. display `"`Not changed'"'
    
20. }
    
21. local i=`i'+1
    
22. }
    
23. list

复制代码

急求。。。还会酌情追加  如果没有看懂或者觉得我表述不清楚 麻烦您问我下 我尽力表达清楚麻烦了！

我来看看吧

lpw3582288 发表于 2014-5-25 15:43
急求。。。还会酌情追加  如果没有看懂或者觉得我表述不清楚 麻烦您问我下 我尽力表达清楚麻烦了！

x<-c(1,2,3,4)
for(i in 2:length(x)){
  if((x[i-1]-x)<4){
    x<-x[i-1]
  }else{   
    i<-i+1
  }
}
x

1. x<-c(1,2,3,4)
   
2. for(i in 2:length(x)){
   
3.   if((x[i-1]-x[i])<4){
   
4.     x[i]<-x[i-1]
   
5.   }else{   
   
6.     i<-i+1
   
7.   }
   
8. }
   
9. x

复制代码

我用的是R软件 你只要把x列向量变化一下 就可以输出你想要的结果了

一个简化版本

1. x<-c(1,2,3,4,-50,20,10)
   
2. for(i in 2:length(x)){
   
3.   if((x[i-1]-x[i])<4) x[i]<-x[i-1]
   
4.   else i<-i+1
   
5. }
   
6. x

复制代码

输出结果 1   1   1   1 -50 -50 -50

xupengswordsman 发表于 2014-5-25 16:03
我用的是R软件 你只要把x列向量变化一下 就可以输出你想要的结果了

十分感谢~ 电脑里面没有装R 并且stata基础比较差。。。不知道怎么给转换过去来着
我自己也写了段代码 但是发现跑出来的结果不对，能麻烦您帮我看看不 十分感谢！
var6就是要处理的那列向量的名字
week是我自己重新设定的一个矩阵
use e4,clear
mat week=[38637]
local total=_N
forval i = 1/·total‘{
preserve
sort Date
local b= week[`i',1]
local a = var6[`i+1']

if `a'-`b'<4{
mat week=[week \ `a']
}
if `a'-`b'>=4{
mat week=[week \ `b']
}
restore
}

xupengswordsman 发表于 2014-5-25 16:08
一个简化版本输出结果 1   1   1   1 -50 -50 -50

这个结果不应该是 1 1 1 1 -50 20 10吗？？