1、第12章 中國股市CAPM驗(yàn)證,清華大學(xué)經(jīng)管學(xué)院 朱世武 Z Resdat樣本數(shù)據(jù)： SAS論壇： ,資本資產(chǎn)定價模型,資本資產(chǎn)定價模型（CAPM）的證券市場線公式如下：,其中： 為風(fēng)險(xiǎn)資產(chǎn)i的預(yù)期收益； 為市場組合的收益； 為無風(fēng)險(xiǎn)資產(chǎn)的收益； 為股票i的值。,計(jì)算BETA值,對于任何股票i；,對于任何組合p；,其中， 為組合p的 值； 為資產(chǎn)i在組合p中所占的比例。,固定時點(diǎn)t的截面模型,其中： 是股票i在時期t的收益率； 為股票i的值； 為與 值無關(guān)的解釋變量; 為此模型t時期的殘差； 為待估計(jì)的系數(shù)。,中國市場CAPM驗(yàn)證,驗(yàn)證CAPM在中國股市成立，即驗(yàn)證： 資產(chǎn)的風(fēng)險(xiǎn)和收益存在線性

2、關(guān)系，即 =0； 是資產(chǎn)i風(fēng)險(xiǎn)的唯一度量，即 =0； 資產(chǎn)的風(fēng)險(xiǎn)與其收益正相關(guān)，即 資本市場有效，即 為公平賭博，即以上數(shù)值的自相關(guān)系數(shù)為0。,計(jì)算步驟,數(shù)據(jù)選取,研究期間：1995年1月到2005年12月。 研究對象：2005年12月前上市的所有A股股票。但要求上市交易大于等于12個月份的股票才能進(jìn)入分組。 市場組合：全部A股股票按流通市值加權(quán)組成的組合。 無風(fēng)險(xiǎn)利率：1998年7月1日前采用月度化的一年期銀行存款利率加上10%的溢價，1998年7月1日后采用月度化的七日回購利率兩周指數(shù)加權(quán)平均利率（B2W）。 數(shù)據(jù)頻率：月持有期收益，1995年1月到2005年12月間的月持有期收益。 模型

3、設(shè)定：用一段時期的數(shù)據(jù)計(jì)算Beta值分組用接下來的一段時期的數(shù)據(jù)重新計(jì)算每一股票的Beta值計(jì)算組合的Beta值檢驗(yàn)。,模型設(shè)定的具體方法,分組期 估值期（用時序模型） 檢驗(yàn)期（用截面模型）,計(jì)算程序,創(chuàng)建個股與市場的月持有期收益數(shù)據(jù)集,/* 1995年1月2005年12月的月序號標(biāo)記 */ Data date; Do date=31jan1995d to 31dec2005d; Output; Year=year(date); Month=month(date); end; drop date; Run; data date; set date; by year month; if firs

4、t.month; if year=. then delete; run;,Data group; Set date; group+1; /*Group為月序號標(biāo)記變量，用于以后的分組控制 */ Run; /*A股股票1995.12005.12月持用期收益率保存在數(shù)據(jù)集stock中*/ data stock; set ResDat.monret; where substr(stkcd,1,1) in (0,6) or substr(stkcd,1,2)=99 and 01Jan95ddate01Jan06d ; keep stkcd date year month Monret; year=ye

5、ar(date); month=month(date); run; /*流通市值加權(quán)的市場組合月收益率保存在index中*/ data index; set ResDat.monretm; where 01Jan95ddate01Jan06d and Mktflg=A and Exchflg=0;/*1995年1月至2005年12月的A股市場月收益率*/ keep date mr_index year month; mr_index =Mrettmv; year=year(date); month=month(date); run;,創(chuàng)建無風(fēng)險(xiǎn)利率數(shù)據(jù)集,/* 創(chuàng)建月度無風(fēng)險(xiǎn)利率數(shù)據(jù)集 rf_

6、month*/ /*1998年7月1日后使用七日回購利率兩周指數(shù)加權(quán)平均為基準(zhǔn)利率 */ data a; set ResDat.bchmkir; if code=B2W and date=1jun1998d; rename ir=rf; keep ir date;run; /*1998年7月1日前用一年期銀行存款利率加10%為基準(zhǔn)利率*/ data b; set ResDat.bankir; if code=d1y ; run; data c; set b; format date yymmdd10.; if enddt=. Then enddt=date(); do date=begdt t

7、o enddt; output; end; run;,data d; set c; if date1jun1998d; keep date rf; rf=ir*1.1; /* 在一年期存款利率的基礎(chǔ)上再增加10% */ run; /* 合并得到無風(fēng)險(xiǎn)利率rfyr*/ data rfyr; set d a; if date=31dec2005d; year=year(date); month=month(date); run; /*對無風(fēng)險(xiǎn)利率進(jìn)行月度平均 */ proc means data=rfyr noprint; output out=rf mean=meanrf; var rf; class year month;run; /* 將年度利率轉(zhuǎn)化為月度利率 */ data rf_month; set rf; drop _type_ _freq_ ; rf_month= meanrf/12; if 1995=year=2005; if month=. then delete; drop meanrf; run;,驗(yàn)證CAPM循環(huán)程序,略,檢驗(yàn)結(jié)果與分析,表12.2中變量解釋： date為日期; group為月數(shù)