这个我看过,不过还是不对。程序显示是这样的:
R <- qua.regressCOP(F=0.90,cop=PLACKETTcop, para=10)
> R <- qua.regressCOP(F=0.90,cop=gumbelcop, para=0.5)
Error in derCOP(cop = cop, u = u, v = x, delu = delu, para = para, ...) :
找不到对象'gumbelcop'
Error in derCOP(cop = cop, u = u, v = x, delu = delu, para = para, ...) :
找不到对象'gumbelcop'
此外: 警告信息:
1: In qua.regressCOP(F = 0.9, cop = gumbelcop, para = 0.5) :
could not uniroot in derCOPinv, skipping sample for i=1 having U=0.01
2: In qua.regressCOP(F = 0.9, cop = gumbelcop, para = 0.5) : 0.5
3: In derCOP(cop = cop, u = u, v = x, delu = delu, para = para, ...) :
重新评估被中断的许诺
Error in derCOP(cop = cop, u = u, v = x, delu = delu, para = para, ...) :
找不到对象'gumbelcop'
此外: 警告信息:
1: In qua.regressCOP(F = 0.9, cop = gumbelcop, para = 0.5) :
could not uniroot in derCOPinv, skipping sample for i=2 having U=0.02
2: In qua.regressCOP(F = 0.9, cop = gumbelcop, para = 0.5) : 0.5
3: In derCOP(cop = cop, u = u, v = x, delu = delu, para = para, ...) :
重新评估被中断的许诺
Error in derCOP(cop = cop, u = u, v = x, delu = delu, para = para, ...) :
找不到对象'gumbelcop'
此外: 警告信息: