# NOT RUN {
library(copula)
norm.cop <- normalCopula(iTau(normalCopula(), .5))
set.seed(1)
dat <- rCopula(5000, norm.cop)
system.time(print(kendall(dat)))
system.time(print(cor(dat, method = "kendall")))
# }
Run the code above in your browser using DataLab