[程式] SAS IF THEN問題

[summerslam (BB)]

[軟體程式類別]:
SAS

[程式問題]:
IF THEN的邏輯問題

[軟體熟悉度]:
低(1~3個月)

[問題敘述]:
各位前輩好，在處理資料時遇到一些需要判斷的條件，希望能幫忙指點一下。


DATA

date      ACC   prod  price     bs  vol      NETVOL     ACQ
20010101  12     A     100      b    5         5         5
20010107  12     A     101      b    1         1         6
20010107  12     A     100      s    4        -4         2
20010108  12     A     102      b    1         1         3
20010107  12     B      70      b    2         2         2
20010107  12     B      72      s    1        -1         1
20010107  12     B      71      s    1        -1         0
20030205  37     A     105      b    5         5         5
20030206  37     A     100      b    1         1         6
20030704  37     A     103      s    3        -3         2

想計算成本，但有幾個條件:
1.bs=b時，cost=(price*vol + LAG(cost)*LAG(ACQ))/(LAG(ACQ)+voL)
          成本=(價格*數量 + 前一筆成本*前一筆acq)/(前一筆acq+數量)

2.bs=s時，cost=lag(cost)。成本直接等於上一筆成本

3.當acc或prod改變時，成本就重新計算(也就是acc或prod改變後的第一筆資料，
cost其實可以直接令為price，因為沒有上一期的成本)。


想要的結果為:
DATA

date      ACC   prod  price  bs  vol   NETVOL  ACQ  COST
20010101  12     A     100   b    5     5       5   100
20010107  12     A     101   b    1     1       6   100.167
20010107  12     A     100   s    4    -4       2   100.167<--bs=s所以為上期
20010108  12     A     102   b    1     1       3   100.778
20010107  12     B      70   b    2     2       2    70 <--prod變B所以重新
20010107  12     B      72   s    1    -1       1    70
20010107  12     B      71   s    1    -1       0    70
20030205  37     A     105   b    5     5       5   105<----ACC變了所以重新
20030206  37     A     100   b    1     1       6   104.167
20030704  37     A     103   s    3    -3       2   104.167


[程式範例]:

data a;
set a;
retain cost 0;
if bs='b' then cost=(price*vol+LAG(cost)*LAG(acq))/(LAG(ACQ)+vol);
else if bs='s' then cost=lag(cost);
else if acc^=lag(acc) or prod^=lag(prod) then cost =price;
RUN;

寫法上都是用直觀的想法，跑出來結果完全不對，麻煩高手糾正一下，謝謝!
-----------------------------------------------------------------------------

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.37.35.219
※ 編輯: summerslam      來自: 114.37.35.219        (03/06 23:15)
※ 編輯: summerslam      來自: 114.37.35.219        (03/06 23:16)
推 tew:做處分效果?
→ summerslam:恩
推 west1996:第三個判斷式應該移到第一個判斷式的前面邏輯才對
→ kurtasd:如果一開始是s哩?這樣cost要怎麼生出來@@
→ summerslam:應該不會有一開始是s，因為已經篩選過了!
推 tew:再跟我連絡一下  我有發表處分效果的文章
→ tew:跟我說說你是用哪一類型的資料 交易檔或者是基金