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

lpw3582288 发表于 2014-5-25 16:19
这个结果不应该是 1 1 1 1 -50 20 10吗？？

我的没错啊 你再仔细想想

lpw3582288 发表于 2014-5-25 16:10
十分感谢~ 电脑里面没有装R 并且stata基础比较差。。。不知道怎么给转换过去来着
我自己也写了段代码 但 ...

我不知道你用什么软件 不过思路都是一样的 一个循环 一个条件语句

lpw3582288 发表于 2014-5-25 16:19
这个结果不应该是 1 1 1 1 -50 20 10吗？？

哦 对的 你的是对的。。负数一减就是负的了 肯定比4小

xupengswordsman 发表于 2014-5-25 16:29
我不知道你用什么软件 不过思路都是一样的 一个循环 一个条件语句

恩恩 ~~我也一直这个思路来着。。。可是就不知道为什么跑不出来结果
虽然问题木有解决 但是还是十分感谢你
这样吧 你上传个附件卖30个币吧 我把它买过来
十分感谢！

lpw3582288 发表于 2014-5-25 17:03
恩恩 ~~我也一直这个思路来着。。。可是就不知道为什么跑不出来结果
虽然问题木有解决 但是还是十分感谢 ...

好久 没赚钱啦 新建文本文档.txt (4.36 KB, 需要: 30 个论坛币)

2014-5-25 20:35:26 上传

需要: 30 个论坛币  [购买]

xupengswordsman 发表于 2014-5-25 20:36
好久 没赚钱啦

已购买 注意查收~

ywh19860616 发表于 2014-5-25 15:17

十分感谢~ 这个思路很棒！
另外还想麻烦您帮个忙
方便的话能帮我指出下我编的code哪里有问题么？
十分感谢！！

lpw3582288 发表于 2014-5-25 23:18
十分感谢~ 这个思路很棒！
另外还想麻烦您帮个忙
方便的话能帮我指出下我编的code哪里有问题么？

其实没有必要用循环，在Stata中尽量是向量运算的。
还看到一种方法，

1. replace var = var[_n-1] if (var[_n-1] - var) < 4 in 2/L

复制代码

lpw3582288 发表于 2014-5-25 23:18
十分感谢~ 这个思路很棒！
另外还想麻烦您帮个忙
方便的话能帮我指出下我编的code哪里有问题么？

1. clear
   
2. input e4
   
3. 8
   
4. 3
   
5. 1
   
6. 2
   
7. 6
   
8. 5
   
9. 3
   
10. end
    
11. 
    
12. mat week=[8]
    
13. local total=_N
    
14. forval i = 2/`total'{
    
15. preserve
    
16. local b = week[`i'-1,1]
    
17. local a = e4[`i']
    
18. 
    
19. if `b'-`a'<4{
    
20. mat week = [week \ `b']
    
21. }
    
22. else{
    
23. mat week = [week \ `a']
    
24. }
    
25. restore
    
26. }
    
27. matrix list week

复制代码

ywh19860616 发表于 2014-5-26 15:41

十分感谢~~ 第二种方法太赞了 ！！stata真是个有大学问的软件