d<-5   #维数
L<-list(2,2)     #子列表
e<-list(L)        #初始的大列表，其中只有一个list（2，2）
 
for(j in 2:d){
e[[j]]<-L
}

#fgmcopula函数中的参数设置
para<-rep(0,2^d-d-1)
k<-1
for(i in 1:(d-1)){
 for(j in (i+1):d){
    para[k]<-0.5^(abs(i-j))
    k<-k+1
  }
}

#X的随机数的产生
x <- mvdc(fgmCopula(para, d),
rep("pareto",d), e)
x.samp <- rmvdc(x, 100)

问题出在给d的赋值上,当d小于等于3是可以做,但是当d>3时就会报错

报错的内容是:

错误于validObject(.Object) :
  invalid class "fgmCopula" object: Bad vector of parameters

而当d=4是,如果将fgmCopula(para, d),写成 fgmCopula(c(0.5,0.5,0.5,0.5,0.5,0.5,0,0,0,0,0),4)
运行可以通过.

上面的问题怎么解决啊????

终于解决了