# \donttest{
ig.1d <- ComputeMaxInfoGainsDiscrete(madelon$data > 500, madelon$decision, dimensions = 1)
ComputeInterestingTuplesDiscrete(madelon$data > 500, madelon$decision, dimensions = 2,
ig.thr = 100, I.lower = ig.1d$IG)
# }
Run the code above in your browser using DataLab