我从Bicopselect函数获得的结果显示了有限家庭集以外的结果

Question

我正在使用下面的引号运行Bicopselect，其族集限制为1到7和9。但是我的结果仍然显示我的设置之外的copula。 17（一些BB1旋转）。

当我在代码中设置家庭组合时，有人可以告诉我是否有问题。

非常感谢您的帮助。

myfunc<-function(rankresi) {  
    pairs<-combn(c(1:ncol(rankresi)),2,simplify=FALSE)  
    res<-sapply(pairs,function(x) 
     BiCopSelect(rankresi[,x[1]],rankresi[,x[2]], familyset=c(1:7,9)))  
      res
    }