# sample from a Gaussian copula
par1 = 3
fam1 = 3
dat1 = BiCopSim(500,fam1,par1)
## Not run:
# # perform the goodness-of-fit test for the true copula
# gof = BiCopGofKendall(dat1[,1],dat1[,2],fam1)
# gof$p.value.CvM
# gof$p.value.KS
#
# # perform the goodness-of-fit test for the Frank copula
# gof = BiCopGofKendall(dat1[,1],dat1[,2],5)
# gof$p.value.CvM
# gof$p.value.KS
# ## End(Not run)
Run the code above in your browser using DataLab