PUCopula@rpatch: Error when patch="lFrechet" and more than 3 coloumns in the dataset

[amaendle]

When patch="lFrechet" and more than 3 coloumns in the dataset are present, the following error appears:

Error in dimnames(x) <- dn :
length of 'dimnames' [2] not equal to array extent

Obviously the lower Fréche patchwork driver will work only for two random variables, i.e. 2 coloumns in the dataset.

A more helpful error message should be prompted in this case.

[amaendle]

similarly - also the error message should be adjusted which appears when:

x <- PUCopula(family="beta", pars.a=c(40, 43), patch="lFrechet",data=as.matrix(dat[,1:3])) x@rand(5)

however: we have no error at all when doing:
x <- PUCopula(family="gamma", pars.a=c(40, 43), patch="lFrechet",data=as.matrix(dat[,1:3])) x@rand(7)

investigate the source of this behavior!