# Calcul par defaut
var1<-sample(LETTERS[1:3],15,replace=TRUE)
var2<-sample(letters[1:3],15,replace=TRUE)
cramer.cor(var1,var2)
# Bootstrap a 100 repetitions et intervalle de confiance a 99 pc
cramer.cor(var1,var2,rep=100,conf.level=0.99)
Run the code above in your browser using DataLab