Homework(Stochastic growth)

john 先生の宿題を終えたのですが，
Rのプログラムが少し不安です。
だってnumericallyにthresholdが7を示すという問題があるのですが，
すべての値が0.89～1.00の間にあって
ものすごい小さい値なんですもの。
ちなみに↓な感じ

+ print(Eg(q))
[1] 0.947619
[1] 0.97
[1] 0.981579
[1] 0.9875
[1] 0.9904412
[1] 0.9917969
[1] 0.9922917
[1] 0.9922991 ←これが一番大きい。
[1] 0.9920072
[1] 0.991504
[1] 0.9908203
[1] 0.9899512
[1] 0.9888618
[1] 0.9874847
[1] 0.9857056
[1] 0.9833282
[1] 0.979997
[1] 0.974998
[1] 0.9666654
[1] 0.949999
[1] 0.899999

ifの分岐と
loopの計算過程の互換がよくわかりません。。。

今日１日

午前
M. Berliant 先生と面談。

午後
Ｎ嶋先生が博士課程の指導教官に。

文部科学省 奨学金

に不合格になりました。
もうね、どうしようもこうしようもないっと。

はやくも

U Rochester

に落ちました。いやん。