SAS 双set的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

大家好！我想请教一个双Set的问题：
数据集A 和B ，A\B有两个变量：t  price  结构如下：
A
t                                    price
2015-01-03                       3
2015-01-07                       2
......






B
t                                     price
2015-01-04                       8
2015-01-06                       9
.......




我想对A中每天价格，找到B中Price比A中Price高3倍，并且时间最近的记录。

请问双set语句或者SQL语句如何实现？

我觉得用SQL会形成一个很大的笛卡尔数据集，运算速度慢，倾向于用双Set来实现。

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：Set Price sql语句 Rice 如何实现 price

1. data one;
   
2. input day price;
   
3. cards;
   
4. 1 10
   
5. 2 45
   
6. 3 14
   
7. 4 15
   
8. 5 16
   
9. ;;;
   
10. 
    
11. data two;
    
12. input day price;
    
13. cards;
    
14. 1 41
    
15. 2 19
    
16. 3 90
    
17. 4 10
    
18. 5 120
    
19. 6 100
    
20. ;;;
    
21. run;
    
22. 
    
23. proc sql noprint;
    
24. 
    
25. create table three as
    
26. select one.day,one.price,(two.day) as day2, (two.price) as price2,abs(day2-one.day) as dif
    
27. from one, two
    
28. where price2 > 4*one.price
    
29. group by one.day
    
30. having dif = min(dif);
    
31. 
    
32. quit;

复制代码

双set不知道怎么弄这个问题 我也想看看高手是怎么做的 坐等

Sql做这个是强项。set能做，但是复杂

1. data one;
   
2. input day1 yymmdd10. price1;
   
3. format day1 yymmdd10.;
   
4. cards;
   
5. 2015-01-03 3
   
6. 2015-01-07 2
   
7. ;
   
8. run;
   
9. data two;
   
10. input day2 yymmdd10. price2;
    
11. format day2 yymmdd10.;
    
12. cards;
    
13. 2015-01-04 8
    
14. 2015-01-06 9
    
15. ;
    
16. run;
    
17. 
    
18. 
    
19. data three;
    
20.         set two;
    
21.         do while ( not (abs(day2-day1)<=3 & price2>=3*price1>0 ) );
    
22.         set one;
    
23.         end;
    
24. run;

复制代码

目前双set实现：日期相差3天之内，价格在3倍及之上。
距离时间最近，需要高人来解答。

sas那个石家庄人 发表于 2015-10-16 00:08
双set不知道怎么弄这个问题 我也想看看高手是怎么做的 坐等

很好。一点意见，用left join可能更好一点

孤单的我们 发表于 2015-10-16 09:43
目前双set实现：日期相差3天之内，价格在3倍及之上。
距离时间最近，需要高人来解答。

程序很好。不过应该比sql要慢。
至于选最近，可能一步做不出来，要把三天以内所有达标的都记下来，然后再选最小的一个

This is what I would do. Basically expand each row on dataset 2 into 7 rows, to matching 3 days before and after the first dataset. Then you keep observations satisfies the price differences, and then you keep the closest.

** You expand the second dataset;
data DataTwo_c;
set datatwo(rename=(date=date0));
do diff = -3 to 3 by 1;
date = date0 + diff;
output;
end;

* You merge two datasets;
data DataOneTwo;
  merge DataOne DataTwo_c(rename=(price=price2));
  by date;
  if price2 >= 3 * price;
  diff = abs(diff);
run;

* you find the closest date;
proc sort data=dateOneTwo; by date diff; run;
data dateOneTwo; set DateOneTwo; by date; if first.date; run;

johnpark1 发表于 2015-10-18 16:37
This is what I would do. Basically expand each row on dataset 2 into 7 rows, to matching 3 days befo ...

这个做法很有意思。有一个改正：
date = date0 + diff;

teqel 发表于 2015-10-19 00:06
这个做法很有意思。有一个改正：
date = date0 + diff;

Thanks for catching the  bug. Fixed in my original post.