20/02/11 09:56:58 5Rrv77pM.net
>>276
補足
シミュレーションでの結果は以下の通り
> mean(RE[,2]==7) # 卒業確率
[1] 0.85482
> mean(RE[RE[,2]==7,1]) # 卒業までの在学年数
[1] 6.712606
> mean(tu(RE[RE[,2]==7,1])) # 卒業までの学費
[1] 52304621
> mean(RE[,3]==2) # 退学確率
[1] 0.14518
> mean(RE[RE[,3]==2,1]) # 退学までの在学年数
[1] 4.99139
> mean(tu(RE[RE[,3]==2,1])) # 退学までの学費
[1] 40204472
q=1-p # 留年確率,p=進級確率
(P=prod(1-q^2)) # 卒業できる確率 Π{1 - (2年連続留年確率)}
(Q=1-P) # 退学となる確率
の結果と近似しています。