# NOT RUN {
x <- runif(10); y <- 3*x+2;
mine_stat(x,y, measure="mic")
## Measure mic-r2
x <- matrix(rnorm(20), ncol=2, nrow=10)
mmic <- mine_stat(x[,1], x[,2], measure="mic")
r2 <- cor(x[,1], x[,2])
mmic - r2**2
# }
Run the code above in your browser using DataLab