# \donttest{
ig.1d <- ComputeMaxInfoGains(madelon$data, madelon$decision, dimensions = 1, divisions = 1,
range = 0, seed = 0)
ComputeInterestingTuples(madelon$data, madelon$decision, dimensions = 2, divisions = 1,
range = 0, seed = 0, ig.thr = 100, I.lower = ig.1d$IG)
# }
Run the code above in your browser using DataLab