全コードは右上のCodeを参照されたい。
# 資産額
w <- 250
# 絶対的リスク回避度
r_a <- function(u_1, u_2, w = 250){
value <- -u_2 / u_1
paste("絶対的リスク回避度:", value)
}
# 相対的リスク回避度
r_r <- function(u_1, u_2, w = 250){
value <- -w * u_2 / u_1
paste("相対的リスク回避度:", value)
}線形効用関数である為、
\[ R_A(250) = 0 R_R(250) = 0 \]
\[ U(W) = 5W + 1 \\ \\ U' = 5 \\ U'' = 1 \\ R_A(W) = -\frac{5}{1}\\ R_R(W) = -\frac{5}{1}W\\ \]
## [1] "絶対的リスク回避度: -5"
## [1] "相対的リスク回避度: -1250"
\[ U(W) = \sqrt{3\sqrt{W^3}} \\ = (3W^{3/2}) \\ = 3 ^ {2/1} W ^ {3/4} \\ U' = \frac{3}{4}W^{-1/4} \\ U'' = \frac{3}{4}(-\frac{1}{4}) W ^ {5/4} \\ = \frac{3}{16} W ^ {-5/4}\\ R_A(W) = -\frac{\frac{3}{16} W ^ {-5/4}}{\frac{3}{4}W^{-1/4}}\\ = \frac{-\frac{3}{4}W^{-5}}{3W^{-1}} \\ = -\frac{3W}{\frac{3}{4}W^5}\\ = -\frac{W}{\frac{1}{4}W^5}\\ = -\frac{4W}{W^5}\\ =-4W^{-4}\\ R_R(W) = -(-4W^{-4})W \\ =4W^3 \]
## [1] "絶対的リスク回避度: 0.0853333333333333"
## [1] "相対的リスク回避度: 21.3333333333333"
\[ U(W) = - (4W - 3000)^2 \\ = 16 W^2 - 24000 + 9000000\\ U' = -32 W - 24000 \\ U'' = 32\\ R_A(W) = - \frac{32}{-32 W - 24000} \\ = \frac{1}{W + 750} \\ = (W + 750)^{-1}\\ R_R(W) = W\frac{1}{W + 750} \\ = \frac{W}{W + 750} \\ = 1 + \frac{W}{750} \\ \]
## [1] "絶対的リスク回避度: -0.001"
## [1] "相対的リスク回避度: -0.25"
\[ U(W) = -\exp(\frac{7 - 3W}{1000}) \\ U' = -\exp(\frac{7 - 3W}{1000})(-\frac{3}{1000}) \\ = \exp(\frac{7 - 3W}{1000})(\frac{3}{1000}) \\ U'' = \exp(\frac{7 - 3W}{1000})\\ R_A(W) = -\frac{\exp(\frac{7 - 3W}{1000})}{\exp(\frac{7 - 3W}{1000})(\frac{3}{1000})}\\ = -\frac{1}{\frac{3}{1000}} \\ = -\frac{1000}{3} \\ R_R(W) = -W\frac{1000}{3} \\ \]
## [1] "絶対的リスク回避度: -333.333333333333"
## [1] "相対的リスク回避度: -83333.3333333333"
\[ U(W) = \ln(3W^3)\\ U' = (\frac{1}{3W^2})(9W^2)\\ = 3 \\ U'' = 1\\ R_A(W) = -\frac{1}{3} \\ R_R(W) = -W\frac{1}{3} \]
## [1] "絶対的リスク回避度: -0.333333333333333"
## [1] "相対的リスク回避度: -83.3333333333333"
\[ U(W) = -\frac{1}{\sqrt{2W + 100}} \\ = - \frac{1}{(2W + 100)^{1/2}} \\ = -(2W + 100)^{-1/2} \\ U' = 2W + 100 \\ U'' = 2 \\ R_A = -\frac{2}{2W + 100} \\ = -\frac{1}{W + 50}\\ = -(W + 50)^{-1}\\ R_R = -W\frac{1}{W + 50}\\ =-1 - \frac{W}{50}\\ \]
## [1] "絶対的リスク回避度: -0.00333333333333333"
## [1] "相対的リスク回避度: -0.833333333333333"
CARA型効用関数
D, Eの効用関数がCARA型効用関数に該当する。
A \[ R'_A = (-\frac{5}{1})'> 0 \]
B \[ R'_A = (-4W^{-4})'> 0 \]
C \[ R'_A = ((W + 750)^{-1})'< 0 \]
D \[ R'_A = (-\frac{1000}{3})'= 0 \]
E \[ R'_A = (-\frac{1}{3})'= 0 \]
F \[ R'_A = (-(W + 50)^{-1})'> 0 \]
CRRA型効用関数
CRRA型効用関数であるもの、つまり\(R'_R(W) = 0\)になるものは該当がなかった。
A \[ R'_R(W) = (-\frac{5}{1}W)' < 0 \]
B \[ R'_R(W) = (4W^{-4})' < 0 \]
C \[ R'_R(W) = (1 + \frac{W}{750})' > 0 \]
D \[ R'_R(W) = (-W\frac{1000}{3})' < 0 \]
E \[ R'_R(W) = (-W\frac{1}{3})' < 0 \]
F \[ R'_R(W) = (-1-\frac{W}{50})' < 0 \]
# 初期資産額
w <- 200
mean <- 1/2*(-100 + 200)
variance <- 1/12*(200 - (-100))^2
pi_r <- function(u_1, u_2){
value <- 1/2 * u_2 / u_1 * variance
paste("絶対リスクプレミアムの近似値:", value)
}Xの期待値と分散は次の通りである。 \[ E[X] = \frac{1}{2}(-100 + 200) = 50\\ Var[X] = \frac{(200 - (-100))^2}{12} = 7500 \]
## [1] "絶対リスクプレミアムの近似値: 18750"
## [1] "絶対リスクプレミアムの近似値: -320"
## [1] "絶対リスクプレミアムの近似値: 3.75"
## [1] "絶対リスクプレミアムの近似値: 1250000"
## [1] "絶対リスクプレミアムの近似値: 1250"
\[ R'_R(W) = (-1-\frac{W}{50})' < 0 \]
## [1] "絶対リスクプレミアムの近似値: 12.5"