R 通过列循环拟合二元copula

我试图将copula模型拟合到二元数据，u2是一个向量，u1的每一列是一个包含两个变量的数据框。这是我的密码

library(copula)
normal.cop <- normalCopula(c(0.6,0.3,0.6),dim=3,dispstr="un")
n=100
set.seed(2)
Dataset=rcopula(normal.cop, n)
u <- apply(Dataset, 2, rank) / (n + 1)
u1=u[,2:3]
u2=u[,1]

for(m in 1:ncol(u1)) 
{ 
  LIST[[m]]<-fitCopula(normal.cop1, cbind(u2,m), method="mpl") 
  LIST[[m]]=coef(m)
} 

不幸的是，这不起作用，我得到了以下错误：

eigenmat中出错：“x”中的值无限或缺失

此外：警告信息：

在corx中，方法=肯德尔：标准偏差为零

我会感谢你的帮助