Расчитываем волатильность рынка ОФЗ и широкого рынка акций в R

Для расчёта коэффициента дисконтирования для широкого рынка акций на рынке РФ необходимо знать безрисковую ставку (\(RF_{rus}\)) и премию за риск в акциях (\(ERP_{rus}\)). Премия за риск может быть получена через адаптацию премии за риск в акциях на американском рынке (\(ERP_{usa}\)), путем коррекции её на риск дефолта страны (\(CRP_{rus}\)) увеличенный пропорционально отношению волатильностей рынка ОФЗ и рынка акций:\[ ERP_{rus}=ERP_{usa}+CRP_{rus}\frac{\sigma_{ММВБ}}{\sigma_{ОФЗ}} \]В данной заметке мы рассмотрим как считать эти волатильности.

Источники данных

Для России будем использовать два индекса: RGBITR – индекс госудаственных облигаций, MCFTRR – индекс полной доходности широкого фронта акций. Для этого загрузим данные с сайта биржи (RGBITR, MCFTRR) в CSV, а затем подгрузим их в R.

rgbitr = read.csv2("RGBITR.csv",fileEncoding="latin1",dec=",",skip = 2,check.names = F)
rgbitr$TRADEDATE=as.Date(rgbitr$TRADEDATE)
mcftrr = read.csv2("MCFTRR.csv",fileEncoding="latin1",sep=";",dec=",",skip = 2,check.names = F)
mcftrr$TRADEDATE=as.Date(mcftrr$TRADEDATE)

Считаем волатильность

Будем считать её по котировкам закрытия на каждый день.

sigma.sd.rgbi=sd(rgbitr$CLOSE)/mean(rgbitr$CLOSE)
sigma.sd.mcft=sd(mcftrr$CLOSE)/mean(mcftrr$CLOSE)

Получаем волатильность RGBI равна 0.02, а волатильность MCFT равна 0.04. Тогда риск дефолта страны должен учитываться в \(ERP_{rus}\) с коэффициентом 1.81. Напомним, что у Асвата Дамодарана получился коэффициент 1.23 для развивающихся рынков в среднем.

(Файл создан из R markdown в RStudio)