# NOT RUN {
dataset <- apply(LifeCycleSavings,2,rank)/(nrow(LifeCycleSavings)+1)
known_copula <- cbCopula(dataset[,2:3],m=10)
(cop <- cbkmCopula(x = dataset,
m = 5,
pseudo = TRUE,
margins_numbers = c(2,3),
known_cop = known_copula))
# }
Run the code above in your browser using DataLab