楼主: XunD
1145 0

[学科前沿] R程序问题 [推广有奖]

  • 0关注
  • 1粉丝

博士生

20%

还不是VIP/贵宾

-

威望
0
论坛币
4084 个
通用积分
0.0001
学术水平
1 点
热心指数
1 点
信用等级
1 点
经验
549 点
帖子
40
精华
0
在线时间
480 小时
注册时间
2005-8-1
最后登录
2025-12-20

楼主
XunD 发表于 2014-11-8 17:38:42 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
下面程序不知哪有问题,哪位大侠帮忙看看?total.callvix是数据。报错信息
Error in s * (pnorm((log(s/K) + (x + 0.5 * sigma^2) * t)/(sigma * sqrt(t)))) :   's' is missing


for (i in 1:9946){
fun<-function (x,s,t,sigma,K,C) {s*(pnorm((log(s/K) + (x +0.5 * sigma^2) * t)/(sigma * sqrt(t)))) -K*exp(-x * t) * (pnorm((log(s/K) + (x - 0.5 * sigma^2) *t)/(sigma * sqrt(t))))-C}
total.callvix[i,"r"]<-uniroot(fun(x),c(-10,10),s=total.callvix[i,"Close"],t=as.numeric(total.callvix[i,"t"])/365,sigma=total.callvix[i,"Voal"],K=0.001*total.callvix[i,"K"],C=(total.callvix[i,"High"]+total.callvix[i,"Low"])/2)$root
}

二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:R程序 missing Sigma Error pnorm function sigma Error 软件 程序

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注jltj
拉您入交流群
GMT+8, 2025-12-30 23:48