运用SAS对股票市场风险指标计算

上海师范大学标准试卷

2015 ~2016学年第1学期考试日期2016年1月8日

科目统计分析与软件应用（学期论文）

概率论与数理统计专业研究生15年级1班姓名李晓学号152200647

我承诺，遵守《上海师范大学考场规则》，诚信考试。签名：________

总分

评价项目

评价标准分

值

得

分

编号内容

1 格式规范论文封面、题目、摘要、关键词、正文、参考文献等符合

编辑规范，正文篇幅符合规定。

20

2 知识运用能运用所学课程知识阐述问题；论文内容有适当的深度、

广度和难度。

30

3 撰写情况观点鲜明，论据确凿，文章材料详实可靠，有说服力；论

文结构严谨，文理通顺；层次清晰，文笔流畅；图表正确、

清晰、规范。

30

4 编程能力SAS编程能力，要求程序具有规范性与可读性，能解决实

际问题

20

评定成绩为：

任课教师签字：

年月日

运用SAS 对股票市场风险指标计算

摘要：理论在现实市场中的有效性值得进一步探讨，资本资产定价模型是用来确定证券均衡价格的一种预测模型，模型以其简洁的形式和理论的浅显易懂使它在整个经济学领域得到了广泛的应用，本文运用SAS 软件实现CAPM 模型在股市中的应用。

关键词：CAPM 模型 风险指标 SAS 软件 一.计算指标与环境 1）理论模型

风险是投资者未来收益的一种不确定性。通常证券市场上由资产价格波动导致的投资者收益的不确定性被人们称为纯市场风险，进行市场风险分析的基本模型一资本资产定价模型CAPM 为基础。 模型：

j j j m j r a r βε=++

其中，j r 为股票j 的超额收益；m r 为市场超额收益；j a 和j β为参数，且假定j β和j ε不相关。

将方差作为风险的度量，根据上述假设得到股票j 的总风险为：

2222

j

j j m εσβσσ=+

即股票j 的风险分为两部分，22j m

βσ和2j εσ。前者由市场引起的股票j 风险的度量，后者是与市场风险无关的股票j 的非系统风险。根据传统的投资理论，系统风险不能用优化投资组合来消除，而非系统风险则是可以通过分散化投资组合来消除。

选定时期，根据经验数据可以得到模型的最小二乘估计j α

，j β 以及相应估计

量2j α ，2m σ 和2j εσ 。于是，系统风险占该股票总风险的比例估计值为：

有

这实际上就是模型测定系数的估计值。2

1jm R - 即为非系统风险所占总风险比例的

22

2

2j m jm j

R βσσ= 22

2

2

112

2

11()()()

()

n

n

i j i i i jm n

n

i i i i Y Y X X R Y Y Y Y β====--=

=

--∑∑∑∑

估计。

2）计算指标

计算1999年至2005年，沪深两地股票市场系统风险指数，个股总风险和系统分风险占总风险比例三个风险指标。 即具体计算：

系统风险系数估计值β

；

个股总风险估计值σ

；

系统风险占总风险比值2

R ；

全市股票上述三种指标的概况统计量。 3）计算环境 计算数据集；

银行存款利率BankIr ； 基准利率BchmkIr; 个股日收益DretM; 市场日收益DretM ； 时期：2005

样本：沪深两市场满足条件的2006年前上市的所有股票日百分比收益。剔除1年内交易小于50天的股票。 二 计算程序

运用SAS 软件对数据进行录入和做相应的处理。 1）算法实现

第一步：创建无风险利率数据集RF;2005年市场日收益数据； 第二步：创建宏文本Stk2006.txt ；

第三步：计算2005年沪深两市场A 股个体风险指标； 第四步：沪深两市场个股与市场风险关系统计分析； 2）计算程序

创建无风险利率数据集：

/*1998年7月1日后使用回购利率两周指数加权平均为基准利率*/ data a;

set resdet.bahnmir;

if code="B2W" and date>='1jun1998'd ; rename ir=rf;

keep ir date;run ;

/*1998年7月1日前用1年期银行存款利率加10%为基准利率*/ data b;

set resdat.bankir; if code="dly"; run ; data c; set b;

format date yymmdd10;

if enddt=.t hen enddt=date();

do date =begdt to enddt;

output;

end;

run;

data d;

set c;

if date<'1jun1998'd;

keep date rf;

rf=ir*1.1;/*在1年期存款利率的基础上再增加10%*/

run;

/*合并得到基准利率表rfyr*/

data rfyr;

set d a;

if date<='31dec2005'd;

run;

/*得到日基利率表rf*/

data rf;

set rfyr;

rf=rf/365;

run;

data DretM2005;

set resdat.DretM;

if year(date)=2005 and Exchflg='0' and Mktflg='AB';

keep date Dretmc;

run;

创建宏文本：Stk2006.txt

利用选择的样本股票收益数据集Dret创建宏。如果要计算全部股票的风险指标，可以直接利用lstkinfo创建宏。

data a;

set resdat.dret;

if dif(stkcd)=0thendelete;

data null;

set a;

a='%a(';

b=',';

c=');";

file "stk2006.txt";

put a $ stkcd $ b $ lstknm $ c $;

run;

计算2005年沪深两市场个股风险指标：模型r_s=a+beta*r_m+e

/*2005年无风险利率数据集rf2005*/

data rf2005;

set rf;

if year(date）=2005；