Vasicek モデルは、金利が長期的にみれば一定の水準 \(\theta\) に引き戻されるという平均回帰性 (Mean Reversion) を取り入れた瞬間金利のモデルである。
確率微分方程式は以下で与えられる。
\[
dr_t = \kappa\;(\theta - r_t)\;dt + \sigma\;dW_t
\]
ただし、\(\kappa\) は長期平均金利への平均回帰速度、\(\theta\) は長期平均金利の水準、\(\sigma\) はボラティリティ、 \(dW_t\) はウィーナー過程である。
シミュレーションのために、オイラー・丸山法を用いて離散化すると以下のようになる。
\[
r_{t+\Delta t} = r_t + \kappa\;(\theta - r_t)\;\Delta t + \sigma\;\sqrt{\Delta t}\;\epsilon_t
\]
これを以下のように整理すると、Vasicekモデルを離散化したものは1次の自己回帰モデル AR(1) になることがわかる。
\[
r_{t+\Delta t} = \kappa\theta\Delta t + (1 - \kappa\Delta t)\;r_t + \sigma\;\sqrt{\Delta t}\;\epsilon_t
\] これが定常過程であるための条件は \(|1-\kappa\Delta t|<1\) であり、その時の期待値は \(\theta\) となる。
以下は、初期金利を \(r_0 = 1\%\)、ボラティリティを \(\sigma=2\%\)、長期平均金利を \(\theta=5\%\)、平均回帰速度を \(\kappa=0.5\) に設定した場合のシミュレーション例である。時間の経過とともに瞬間短期金利が \(5\%\) に近づいていく様子が確認できる。
library(ggplot2)
theme_set(theme_bw())
set.seed(42)
years <- 10
N <- 100 * years
dt <- years / N
time <- seq(0, years, by = dt)
r0 <- 0.01
sigma <- 0.02
theta <- 0.05
kappa <- 0.5
m <- 25
# オイラー・丸山法によるシミュレーション
rt <- rep(r0, m)
df <- list()
df[[1]] <- data.frame(id = 1:m, time=time[1], rate=rt)
for (i in seq_len(N)) {
drift <- kappa * (theta - rt) * dt
diffusion <- sigma * sqrt(dt) * rnorm(m)
rt <- rt + drift + diffusion
df[[length(df) + 1]] <-
data.frame(id = 1:m, time=time[1 + i], rate=rt)
}
df <- do.call(rbind, df)
# プロット
ggplot(df) +
geom_hline(yintercept = theta, linetype = "dashed") +
geom_line(aes(time, rate, group=id)) +
labs(
title = "Discretized Vasicek Model",
x = "Time (t)", y = "Rate (t)"
)
import numpy as np
import pandas as pd
from plotnine import *
theme_set(theme_bw())
np.random.seed(42)
years = 10
N = 100 * years
dt = years / N
time = np.linspace(0, years, N + 1)
r0 = 0.01
sigma = 0.02
theta = 0.05
kappa = 0.5
m = 25
# オイラー・丸山法によるシミュレーション
rt = np.repeat(r0, m)
df = list()
df.append(pd.DataFrame({'id':range(m), 'time':time[0], 'rate':rt}))
for i in range(N):
drift = kappa * (theta - rt) * dt
diffusion = sigma * np.sqrt(dt) * np.random.normal(0, 1, m)
rt = rt + drift + diffusion
df.append(
pd.DataFrame({'id':range(m), 'time':time[1+i], 'rate':rt})
)
df = pd.concat(df)
# プロット
ggplot(df) + \
geom_hline(yintercept=theta, linetype="dashed") + \
geom_line(aes("time", "rate", group="id")) + \
labs(
subtitle = "Discretized Vasicek Model",
x = "Time (t)", y = "Rate (t)"
)
Vasicek モデルでは、時点 \(t\) における残存期間 \(s\) の利回り \(\delta(t, t+s)\) を以下のように表すことができる。
\[
\begin{align}
\delta(t, t+s) &= \frac{A(s) - B(s)\;r_t}{s}\\
B(s) &= \frac{1 - e^{-\kappa s}}{\kappa}\\
A(s) &= (\theta^Q - \frac{\sigma^2}{2\kappa^2})(B(s) - s) - \frac{\sigma^2}{4\kappa}B(s)^2
\end{align}
\]
ここで、\(\theta^Q\) はリスク調整後の(リスク中立的)長期平均金利であり、モデルから導出される債券価格と市場で観測される債券価格の誤差を最小化するなどの方法で推定される。ヒストリカル・データなどに基づいて推定される長期平均金利 \(\theta^P\) にリスクプレミアムを加えたものと理解することもできる。\(\theta^P\) と \(\theta^Q\) のどちらも Vasicek モデルで使用されうるが、前者によるモデルは純粋な金利予測やリスク管理のために利用され、後者によるモデルは債券や金利デリバティブの時価評価に利用される。
\(\theta^P\) と \(\theta^Q\) の関係を敷衍しておく。\(dW_t^P\) がウィーナー過程となる確率測度における Vasicek モデルは以下の式で表現される。
\[
dr_t = \kappa\;(\theta^P - r_t)\;dt + \sigma\;dW_t^P\\
\]
このモデルを \(dW_t^Q = dW_t^P + \lambda dt\) を用いて以下のように変換する。
\[
\begin{align}
dr_t &= \kappa (\theta^P - r_t)\ dt + \sigma\ (dW_t^Q - \lambda dt)\\
&= \kappa\;[(\theta^P - \frac{\sigma\lambda}{\kappa}) - r_t]\;dt + \sigma dW_t^Q
\end{align}
\]
この式は、\(dW_t^Q\) がウィーナー過程となる確率測度における Vasicek モデルとなる。係数の比較により以下の関係が従う。
\[
\theta^Q = \theta^P - \frac{\sigma\lambda}{\kappa}
\]
一般に市場のリスク価格 \(\lambda\) は負の値をとることが多く、その場合 \(\theta^Q > \theta^P\) となる。これは、市場がリスクを考慮して現実の平均的な予測よりも高めの金利をイールドカーブに織り込むことに対応している。
以下、Vasicek モデルにおける複数の瞬間金利水準に対応する イールドカーブの形状をプロットする。
library(ggplot2)
kappa <- 0.5
theta <- 0.06
sigma <- 0.02
# 解析解の関数定義
vasicek_yield <- function(rt, s, kappa, theta, sigma) {
B <- (1 - exp(-kappa * s)) / kappa
A <- (
(theta - sigma^2 / (2 * kappa^2)) * (B - s)
- (sigma^2 / (4 * kappa)) * B^2
)
yield <- (B * rt - A) / s
return(yield)
}
# 3つの異なる瞬間金利でのカーブを比較
tenors <- seq(0.1, 30, by = 0.1)
r0_samples <- c(0.03, 0.06, 0.09)
df <- list()
for(r0 in r0_samples){
y <- vasicek_yield(r0, tenors, kappa, theta, sigma)
df[[length(df) + 1]] <-
data.frame(tenor=tenors, yield=y, rt=as.factor(r0))
}
df <- do.call(rbind, df)
# プロット
ggplot(df) +
geom_line(aes(x=tenor, y=yield, linetype=rt)) +
labs(title = "Yield Curves in Vasicek Model",
x = "Time to Maturity", y = "Yield",
lty = "Current Rate")
金利のモデルとしての Vasicek モデルには以下のような課題がある。
瞬間金利が負値となる可能性がある
Vasicek モデルでは、金利自身の誤差項にウィーナー過程/正規分布を仮定するため、金利 \(r_t\) がマイナスになりうる。
イールドカーブの形状が限定される
Vasicek モデルにおけるイールドカーブの形状は理論上単純な形に限定されており、複雑な凹凸を持つことがある現実のイールドカーブを初期条件として表現できないことがある。
ボラティリティが一定である
金利には、現在の金利水準が低いほどボラティリティも小さい傾向があるとされる。しかし、そのような性質は Vasicek モデルでは表現できない。