R代码：CEV型号&；MC模拟

不知道如何在R上实现此代码，欢迎提供任何帮助

我们假设底层流程ST遵循CEV模型

• 使用MC方法评估以下收益的预期值。编写有效的代码。（提示：system.time（）r函数可能很有用）

max{ST-K，0}1a_1≤ 圣卢西亚1号≤ b_1，1a_1≤ ST_2≤ b_1，1a_1≤ 圣尤3≤ b_1

其中a_11是一个指示函数，T1=0.25*T，T2=0.5*T，T3=0.75*T

（提示：代码中的最后时间T必须是用户固定的输入。如果用户选择T=10，则T1=10*0.25=2.5，依此类推）

• 计算MC价格的上限和下限
• 为每个模型参数编写一个代码，用于评估相应的灵敏度测量值

我在网上找到了一些代码字符串，但对于我这样的学生来说，它们似乎太先进了