## Generate random variable
Y <- rnorm(n = 100, mean = 0, sd = 2)
X <- rnorm(n = 100, mean = 5, sd = 2)
dist <- list(Y="gaussian", X="gaussian")
miData(discretization(data.df = cbind(X,Y), data.dists = dist,
discretization.method = "fd", nb.states = FALSE),
method = "mi.raw")
Run the code above in your browser using DataLab