R语言建模报错：没有可用来把这个S4类别强迫改为矢量的方法

本人小白，R语言运行时候报错显示：没有可用来把这个S4类别强迫改为矢量的方法。自己网上查了好久都没找到方法，想请论坛的大神帮忙看看。用的是混合Copula对GM和UTX的股票收益率数据集进行建模，以下是代码（代码都是书上抄的，可是运行不出来）：

1. library(copula)
   
2. library(FRAPO)
   
3. library(QRM)
   
4. 
   
5. data(DJ.df)
   
6. Data = DJ.df[,c('GM','UTX')]
   
7. R = na.omit(returnseries(Data,method = 'discrete',trim = TRUE))
   
8. U = apply(R,2,edf)
   
9. 
   
10. copC = claytonCopula(2)
    
11. copG = gumbelCopula(2)
    
12. 
    
13. LLCG = function(params,x,copC,copG){
    
14.   slot(copC,'parameters') = params[1]
    
15.   slot(copG,'parameters') = params[2]
    
16.   pi = params[3]
    
17.   optm = sum(log(pi * dCopula(copC,x) + (1 - pi) *
    
18.                   dCopula(copG,x)))
    
19.   return(optm)
    
20. }
    
21. 
    
22. lower = c(copC@param.lowbnd,copG@param.lowbnd,0)
    
23. upper = c(copC@param.upbnd,copG@param.upbnd,1)
    
24. par1 = copula:::fitCopula(copC,U,method = 'itau')@estimate
    
25. par2 = copula:::fitCopula(copG,U,method = 'itau')@estimate
    
26. par3 = 0.5
    
27. 
    
28. opt = optim(c(par1,par2,par3),LLCG,x = U,copC = copC,copG = copG,
    
29.             lower = lower,upper = upper,method = 'L-BFGS-B',
    
30.             control = list(fnscale = -1,trace = 2),
    
31.             hessian = TRUE)

复制代码

前面的代码都没报错，就是运行到最后一段optim()函数时候报错：Error in rbind2(..1) : 没有可用来把这个S4类别强迫改为矢量的方法。

万分感谢。

来个大侠指点一下嘛。。。。