在這情況,請教如何用解決呢?(急需coding!)

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我有一個dataset,關於賽馬的,有3個variables,分別為,Race number,Horse code 和 Distance ran.
請教如何可以製造一個新的binary variable,say new_distance,去檢查一隻馬上一場有否在同樣距離作賽.有就=1,沒有就=0
for example,
Race_number     Horse_code       Distance_ran     New_distance
1                               1                           1                              0
5                               1                           1                              1
14                             1                           2                              0
.
.
.
.
250                           25                         1                              0
260                           25                         4                              0
310                           25                         4                              1

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Coding DING COD ING ODI example number 如何

data x;
input Race_number     Horse_code       Distance_ran     ;
cards;
1                               1                           1                              
5                               1                           1                              
14                             1                           2                              
250                           25                         1                              
260                           25                         4                              
310                           25                         4   
312                         25                         4                              
;run;
proc sort;by  Horse_code Distance_ran;run;
data final;set x;
by  Horse_code Distance_ran;
if first.Horse_code then New_distance=-1;
if  first.Distance_ran then New_distance=-1;
New_distance+1;
if New_distance>1 then New_distance=1;
run;

xiaosanmao 发表于 2009-11-11 14:34
data x;
input Race_number     Horse_code       Distance_ran     ;
                        
......

感謝大大幫助!!!
但有些未解決,以下為output:
                                 Race_    Horse_    Distance_      New_
                      Obs    number     code        ran       distance
                          1         1                 1          1            0
                          2         5                 1          1            1
                          3       250             25          1            1
                          4        14                1          2            0
                          5       260             25          4            0
                          6       310             25          4            1
                          7       312             25          4            1

Horse250第一次跑Distance 1, 應該要出 0 而不是1.

data x;
input Race_number     Horse_code       Distance_ran     ;
cards;
1                               1                           1                              
5                               1                           1                              
14                             1                           2                              
312                         25                         4                              
250                           25                         1                              
260                           25                         4                              
310                           25                         4   

;run;
proc sort;by  Race_number Horse_code Distance_ran;run;
data final;
set x;
by  Horse_code Distance_ran ;
retain New_distance 0;
New_distance+1;
if first.Horse_code & first.Distance_ran  then New_distance=0;
if New_distance>1 then New_distance=1;
run;
proc print;
run;

改了少少,不知可不可以

proc sort;by  Horse_code Distance_ran;run;
data final;set x;
by  Horse_code Distance_ran;
if first.Horse_code then New_distance=-1;
if  first.Distance_ran then New_distance=-1;
New_distance+1;
if New_distance>1 then New_distance=1;
run;

xiaosanmao 发表于 2009-11-11 19:57
proc sort;by  Horse_code Distance_ran;run;
....

謝謝你,但還有些問題
data x;
input Race_number     Horse_code       Distance_ran     ;
cards;
1                               1                           1                              
5                               1                           1                              
14                             1                           2                              
312                         25                         4                              
250                           25                         1                              
260                           1                        2                              
310                           25                         4   
;run;
proc sort;by  Horse_code Distance_ran;run;
data final;set x;
by  Horse_code Distance_ran;
if first.Horse_code then New_distance=-1;
if  first.Distance_ran then New_distance=-1;
New_distance+1;
if New_distance>1 then New_distance=1;
run;
proc print;
run;

                                     Race_    Horse_    Distance_      New_
                         Obs    number     code        ran       distance
                          1               1          1             1            0
                          2               5          1             1            1
                          3              14        1              2            0
                          4            260        1             2            1
                          5           250       25             1            0
                          6           312       25             4            0
                          7           310       25             4            1
紅字New_distance應該是0,但卻出了1
因為race_number未必順序

proc sort;by Race_number;run;
proc sort;by    Horse_code Distance_ran;run;
data final;set x;
by   Horse_code Distance_ran;
if first.Horse_code then New_distance=-1;
if  first.Distance_ran then New_distance=-1;
New_distance+1;
if New_distance>1 then New_distance=1;
run;

6# gundamlf

1. data x;
   
2. input Race_number  Horse_code Distance_ran     ;
   
3. n+1;  *remember the original order;
   
4. cards;
   
5. 1       1  1
   
6. 5       1  1
   
7. 14     1  2
   
8. 312 25  4
   
9. 250 25  1
   
10. 260   1  2
    
11. 310 25  4
    
12. ;
    
13. run;
    
14. 
    
15. proc sort; by  Horse_code Race_number Distance_ran; run;
    
16. 
    
17. data final;
    
18.    set x;
    
19.    lagHorse_code =lag(horse_code); lagDistance_ran =lag(Distance_ran);
    
20.    new_distance =0;
    
21.    if lagHorse_code =Horse_code then if lagDistance_ran =distance_ran
    
22.       then new_distance =1;
    
23.    drop lag:;
    
24. run;
    
25. 
    
26. *restore the original order;
    
27. proc sort data =final out =final (drop =n);  by n;  run;
    
28. proc print; run;

复制代码

jingju11 发表于 2009-11-12 00:43
6# gundamlf [code]data x;
input Race_number  Horse_code Distance_ran     ;
n+1;  *remember the original order;
cards;
1       1  1
5       1  1
14     1  2
312 25  4
250 25  1
260   1  2
310 25  4
;
run;

proc sort; by  Horse_code Race_number Distance_ran; run;

data final;
   set x;
   lagHorse_code =lag(horse_code); lagDistance_ran =lag(Distance_ran);
   new_distance =0;
.....code]

紅字的new_dist應該=0,但出現=1

                      Obs   number   code       dist_ran   new_dist
                            1       1        724        1200          0
                            2       1        531        1200          0
                            3       1         62        1200          0
                            4       1        606        1200          0
                            5       1        369        1200          0
                            6       1        548        1200          0
                            7       1        335        1200          0
                            8       1        482        1200          0
                            9       1        393        1200          0
                           10       1        373        1200          0
                           11       1         58        1200          0
                           12       1        594        1200          0
                           13       1         65        1200          0
                           14       2        754        1400          0
                           15       2         69        1400          0
                           16       2        158        1400          0
                           17       2        639        1400          0
                           18       2        649        1400          0
                           19       2        287        1400          0
                           20       2        172        1400          0
                           21       2        216        1400          0
                           22       2         80        1400          0
                           23       2        496        1400          0
                           24       2        132        1400          0
                           25       2        191        1400          1
                           26       3        152        1200          0
                           27       3        399        1200          0
                           28       3        480        1200          0
                           29       3        709        1200          0
                           30       3        328        1200          0
                           31       3        765        1200          0
                           32       3        838        1200          0
                           33       3        632        1200          0
                           34       3         36        1200          1

9# gundamlf

              Horse_     Race_    Distance_                  new_
Obs    Obs     code     number       ran       new_dist    distance
  1      1       1        724        1200          0           1
  2      2       1        531        1200          0           1
  3      3       1         62        1200          0           1
  4      4       1        606        1200          0           1
  5      5       1        369        1200          0           1
  6      6       1        548        1200          0           1
  7      7       1        335        1200          0           1
  8      8       1        482        1200          0           1
  9      9       1        393        1200          0           1
10     10       1        373        1200          0           1
11     11       1         58        1200          0           0
12     12       1        594        1200          0           1
13     13       1         65        1200          0           1
14     14       2        754        1400          0           1
15     15       2         69        1400          0           0
16     16       2        158        1400          0           1
17     17       2        639        1400          0           1
18     18       2        649        1400          0           1
19     19       2        287        1400          0           1
20     20       2        172        1400          0           1
21     21       2        216        1400          0           1
22     22       2         80        1400          0           1
23     23       2        496        1400          0           1
24     24       2        132        1400          0           1
25     25       2        191        1400          1           1
26     26       3        152        1200          0           1
27     27       3        399        1200          0           1
28     28       3        480        1200          0           1
29     29       3        709        1200          0           1
30     30       3        328        1200          0           1
31     31       3        765        1200          0           1
32     32       3        838        1200          0           1
33     33       3        632        1200          0           1
34     34       3         36        1200          1           0

以上是我的SAS运行出的结果。也可能我们根本没有明白你的意思。比如说最后一条记录是horse 3 的第一场，为何不为零？