運(yùn)用SAS對(duì)股票場(chǎng)風(fēng)險(xiǎn)指標(biāo)計(jì)算

1、運(yùn)用SAS對(duì)股票市場(chǎng)風(fēng)險(xiǎn)指標(biāo)計(jì)算-CAL-FENGHAI-(2020YEAR-YICAI)INGBIAN上海師范大學(xué)標(biāo)準(zhǔn)試卷2015-2016學(xué)年第1學(xué)期考試日期2016年1月8日科目統(tǒng)計(jì)分析與軟件應(yīng)用（學(xué)期論文）概率論與數(shù)理統(tǒng)計(jì)專業(yè)研究生15年級(jí)1班姓名李曉 學(xué)號(hào)152200647我承諾，遵守上海師范大學(xué)考場(chǎng)規(guī)則，誠信考試。 簽名：總分一分值一得分容 內(nèi)20nWn3BK 訂層確 姑昵正30HHn日 月 年運(yùn)用SAS對(duì)股票市場(chǎng)風(fēng)險(xiǎn)指標(biāo)計(jì)算 摘要：理論在現(xiàn)實(shí)市場(chǎng)中的有效性值得進(jìn)一步探討，資本資產(chǎn)定價(jià) 模型是用來確定證券均衡價(jià)格的一種預(yù)測(cè)模型，模型以其簡(jiǎn)潔的形 式和理論的淺顯易懂使它在整個(gè)經(jīng)濟(jì)學(xué)領(lǐng)

2、域得到了廣泛的應(yīng)用，本 文運(yùn)用SAS軟件實(shí)現(xiàn)CAPM模型在股市中的應(yīng)用。關(guān)鍵詞：CAPM模型 風(fēng)險(xiǎn)指標(biāo)SAS軟件一 計(jì)算指標(biāo)與環(huán)境1）理論模型風(fēng)險(xiǎn)是投資者未來收益的一種不確定性。通常證券市場(chǎng)上由資產(chǎn)價(jià)格波動(dòng)導(dǎo)致 的投資者收益的不確定性被人們稱為純市場(chǎng)風(fēng)險(xiǎn)，進(jìn)行市場(chǎng)風(fēng)險(xiǎn)分析的基本模 型一資本資產(chǎn)定價(jià)模型CAPM為基礎(chǔ)。模型：其中，匚為股票j的超額收益；口為市場(chǎng)超額收益；勺和Q為參數(shù)，且假定0”,和£（不相關(guān)。將方差作為風(fēng)險(xiǎn)的度量，根據(jù)上述假設(shè)得到股票j的總風(fēng)險(xiǎn)為：即股票j的風(fēng)險(xiǎn)分為兩部分，0；尤和CT；。前者山市場(chǎng)引起的股票j風(fēng)險(xiǎn)的度 量，后者是與市場(chǎng)風(fēng)險(xiǎn)無關(guān)的股票j的非系統(tǒng)風(fēng)險(xiǎn)。根據(jù)

3、傳統(tǒng)的投資理論，系 統(tǒng)風(fēng)險(xiǎn)不能用優(yōu)化投資組合來消除，而非系統(tǒng)風(fēng)險(xiǎn)則是可以通過分散化投資組 合來消除。選定時(shí)期，根據(jù)經(jīng)驗(yàn)數(shù)據(jù)可以得到模型的最小二乘估計(jì)色，幾以及相應(yīng)估計(jì) 量玄，孟和可,。于是，系統(tǒng)風(fēng)險(xiǎn)占該股票總風(fēng)險(xiǎn)的比例估計(jì)值為：±化"）2序廠乂尸 R2 = jntnn為（乙"）2工0-力2有r-1i-l這實(shí)際上就是模型測(cè)定系數(shù)的估計(jì)值。1-斤打即為非系統(tǒng)風(fēng)險(xiǎn)所占總風(fēng)險(xiǎn)比例的估計(jì)。2）計(jì)算指標(biāo)計(jì)算1999年至2005年，滬深兩地股票市場(chǎng)系統(tǒng)風(fēng)險(xiǎn)指數(shù)，個(gè)股總風(fēng)險(xiǎn)和系統(tǒng) 分風(fēng)險(xiǎn)占總風(fēng)險(xiǎn)比例三個(gè)風(fēng)險(xiǎn)指標(biāo)。即具體計(jì)算：系統(tǒng)風(fēng)險(xiǎn)系數(shù)估計(jì)值個(gè)股總風(fēng)險(xiǎn)估計(jì)值系統(tǒng)風(fēng)險(xiǎn)占總風(fēng)險(xiǎn)比值斤

4、'；全市股票上述三種指標(biāo)的概況統(tǒng)計(jì)量。3）計(jì)算環(huán)境計(jì)算數(shù)據(jù)集；銀行存款利率Banklr：基準(zhǔn)利率Bchmklr;個(gè)股日收益DretM;市場(chǎng)日收益DretM；時(shí)期：2005樣本：滬深兩市場(chǎng)滿足條件的2006年前上市的所有股票日白分比收益。剔除1 年內(nèi)交易小于50天的股票。二計(jì)算程序運(yùn)用SAS軟件對(duì)數(shù)據(jù)進(jìn)行錄入和做相應(yīng)的處理。1）算法實(shí)現(xiàn)笫一步：創(chuàng)建無風(fēng)險(xiǎn)利率數(shù)據(jù)集RF;2005年市場(chǎng)日收益數(shù)據(jù)；第二步：創(chuàng)建宏文本Stk2006.txt；第三步：計(jì)算2005年滬深兩市場(chǎng)A股個(gè)體風(fēng)險(xiǎn)指標(biāo)；第四步：滬深兩市場(chǎng)個(gè)股與市場(chǎng)風(fēng)險(xiǎn)關(guān)系統(tǒng)計(jì)分析；2）計(jì)算程序創(chuàng)建無風(fēng)險(xiǎn)利率數(shù)據(jù)集：/*1998年7月1日后

5、使用回購利率兩周指數(shù)加權(quán)平均為基準(zhǔn)利率*/data a;set resdet.bahnmii?;if code="B2W" and date二'ljunl998'd;rename ir=rf;keep ir date;run;/*1998年7月1日前用1年期銀行存款利率加10%為基準(zhǔn)利率*/data b;set resdat.bankir;辻 code二"dly"run;data c;set b;format date yymmddlO;if enddt=then enddt=date（）;do date =begdt to enddt:

6、output;end;run;data d;set c;if date<, 1junl998, d;keep date rf;rf=ir*l. 1；/*在1年期存款利率的基礎(chǔ)上再增加10%*/run;/*合并得到基準(zhǔn)利率表rfyr*/data rfyr;set d a;辻 date<=,31dec2005,d;run;/*得到日基利率表rf*/data rf;set rfyr;rf=rf/365;run;data DretM2005;set resdat.DretM;辻 year(date)=2005 and Exchflg= 0 and Mktflg=，AB* ;keep dat

7、e Dretmc;run;創(chuàng)建宏文本：Stk2006. txt利用選擇的樣本股票收益數(shù)據(jù)集Dret創(chuàng)建宏。如果要計(jì)算全部股票的風(fēng)險(xiǎn)指 標(biāo)，可以直接利用lstkinfo創(chuàng)建宏。data a;set resdatdret;if dif(stkcd)=0 then delete;data null;set a;a=，%a ('C二')；file "stk2006.txt"put a $ stkcd $ b $ lstknm $ c $;run;計(jì)算2005年滬深兩市場(chǎng)個(gè)股風(fēng)險(xiǎn)指標(biāo)：模型r_s=a+beta*r_m+e/*2005年無風(fēng)險(xiǎn)利率數(shù)據(jù)集rf2005*/d

8、ata rf2005;set rf:辻 year(date) =2005；run;/*2005市場(chǎng)超額收益數(shù)據(jù)集*/data pdretm2005 rf2005;merge dretm2005 rf 2005;by date;rm=dretmc-rf;keep date rm;run;ddtd pdretm2005;set pdretm2005;retain r_m;if rm=then r_m=rm;drop rm;run;data dret;set resdatdret;where year (date)=2005;run;proc sql;create table pdret2005 a

9、sselect * from dret left join rfon dretdate二rf.date;run;proc sort data=pdret2005;by stkcd date;run;data pdret2005;set pdret2005;r_s=dretrf;keep stkcd llstknm date r_s;run;proc sql;create able capm2005 asselect * from pdret2005 left join pdretm2005on pdret2005 date=pdretm2005 date;run;proc sort data=

10、capm2005;by stkcd;run;/*訃算個(gè)股風(fēng)險(xiǎn)指標(biāo)；數(shù)據(jù)集capm2005*/proc reg data=capm2005 outset二d cp noprint; model r s=r m;by stkcd;run;data d;set d;辻（_edf_+_p_）50 then delete;data riiskl2005（keep=sn obs_rms_r_m_rsq_stkcd label二"2005 年個(gè)股與市 場(chǎng)風(fēng)險(xiǎn)指標(biāo)“）； set d;sn=_n_;obs二（_edf_+）_）;label sn=,個(gè)股序號(hào)'label obs=觀測(cè)個(gè)數(shù)'

11、;label _rmse_=，個(gè)股風(fēng)險(xiǎn)度'；label r_m='系統(tǒng)風(fēng)險(xiǎn)估計(jì)值beta ;label _rsq_=，系統(tǒng)風(fēng)險(xiǎn)占總風(fēng)險(xiǎn)比例'；run;2005年股票市場(chǎng)個(gè)股風(fēng)險(xiǎn)指標(biāo)的概括統(tǒng)計(jì)量計(jì)算： proc univariate data=riskl2005 nopprint; var r_m_rmse_rsq_;output out=out n=n_r_m n_rmse_ n_rsq_;mean=mean_r_m mean_rmse_ mean_rsq_median二median_r_m median_rmse_median_rsq_ min=min_r_m min_rmse_ min_rsq_ max二max_:r_ni max_rmse_ max_rsq_ ql=ql_r_m ql_rmse_ ql_rsq_ q3=q3_r_m q3_rmse_ q3_rsq_ range=range_r_m rang