[程式] SAS IF THEN問題
[軟體程式類別]:
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)
推
03/07 00:11, , 1F
03/07 00:11, 1F
→
03/07 00:40, , 2F
03/07 00:40, 2F
推
03/07 01:05, , 3F
03/07 01:05, 3F
→
03/07 02:23, , 4F
03/07 02:23, 4F
→
03/07 13:30, , 5F
03/07 13:30, 5F
推
03/07 17:52, , 6F
03/07 17:52, 6F
→
03/07 17:52, , 7F
03/07 17:52, 7F