股票市场风险指标计算【PPT课件】.ppt

第7章 股票市场风险指标计算
清华大学经管学院 朱世武
******@
Resdat样本数据：
SAS论坛：
计算指标与环境
理论模型
f enddt=. Then enddt=date();
do date=begdt to enddt;
output;
end;
run;
创建宏文本：。
利用选择的样本股票收益数据集Dret创建宏。如果要计算全部股票的风险指标，可以直接利用lstkinfo创建宏。
Data a;
Set ;
If dif(stkcd)=0 then delete;
data _null_;
set a;
a='%a(';
b=',';
c=');' ;
file "" ;
put a $ stkcd $ b $ lstknm $ c $ ;
run;
%a( 000001 , S深发展A );
%a( 000002 , 万科A );
%a( 000004 , *ST国农 );
%a( 000005 , ST星源 );
%a( 000007 , 深达声A );
%a( 000009 , S深宝安A );
%a( 000011 , S深物业A );
%a( 000012 , 南玻A );
%a( 000016 , 深康佳A );
%a( 000017 , S*ST中华 );
%a( 200011 , 深物业B );
%a( 200012 , 南玻B );
…… ……
计算2005年沪深两市场个股风险指标：模型r_s=a+beta*r_m+e
/* 2005年无风险利率数据集rf2005 */
Data rf2005;
Set rf;
If year(date)=2005;
Run;
/* 2005市场超额收益数据集 */
Data PDretM2005;
Merge DretM2005 rf2005;
By date;
rm= Dretmc- rf;
keep date rm;
run;
data PDretM2005; /* 收益数据缺失时，用前面交易日的数据填充 */
set PDretM2005;
retain r_m;
if rm^=. Then r_m=rm;
drop rm;
run;
/* 2005年个股票超额收益数据集 */
Data dret;
Set ;
Where year(date)=2005;
Run;
Proc sql;
Create table Pdret2005 as
Select * from Dret left join rf
On =;
Run;
Proc sort data= Pdret2005;
By stkcd date;
Run;
Data Pdret2005;
Set Pdret2005;
r_s=dret-rf;
keep stkcd lstknm date r_s;
run;
Proc sql;
Create table Capm2005 as
Select * from Pdret2005 left join PdretM2005
On =;
Run;
Proc sort data=capm2005;
By stkcd;
Run;
/* 计算个股风险指标：数据集Capm2005 */
proc reg data=capm2005 outest=d cp noprint; /*输出参数估计数据集中包括Mallow Cp估计量 */
model r_s=r_m; /* 回归模型为：r_s=a+beta*r_m+e */
by stkcd;
run;
data d;
set d;
if (_EDF_+_P_)<50 then delete; /* 删除2005年交易日小于50天的股票，_EDF_为残差自由度，_P_为参数个数 */
data Riskl2005 (keep=sn obs _rmse_ r_m _rsq_ stkcd label=”2005年个股与市场风险指标”);
set d;
sn=_n_;
obs=(_edf_+_p_);
label sn='个股序号';
label obs='观测个数';
label _rmse_='个股风险度';
label r_m='系统风险估计值beta';
label _rsq_='系统风险占总风险比例';
run;
对数据集Riskl2005中个股的三种风险指标作图：
%macr