作者summerslam (BB)
看板Statistics
標題[程式] SAS IF THEN問題
時間Tue Mar 6 23:15:05 2012
[軟體程式類別]:
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)
1F：推 tew:做處分效果? 03/07 00:11
2F：→ summerslam:恩 03/07 00:40
3F：推 west1996:第三個判斷式應該移到第一個判斷式的前面邏輯才對 03/07 01:05
4F：→ kurtasd:如果一開始是s哩?這樣cost要怎麼生出來@@ 03/07 02:23
5F：→ summerslam:應該不會有一開始是s，因為已經篩選過了! 03/07 13:30
6F：推 tew:再跟我連絡一下 我有發表處分效果的文章 03/07 17:52
7F：→ tew:跟我說說你是用哪一類型的資料 交易檔或者是基金 03/07 17:52