# NOT RUN {
## 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(freqs.table = 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