Code for the paper 'Variable Selection with Copula Entropy' accepted by Chinese Journal of Applied Probability and Statistics