powered by
copula.trans(dendat, marginal=rep("gauss",dim(dendat)[2]), remna=TRUE)
set.seed(2) n<-100 d<-2 dendat<-matrix(runif(n*d),n,d) x<-copula.trans(dendat)
Run the code above in your browser using DataLab