R包discretization中的函数chi2算法结果和原文《Feature selection and discretization, IEEE transactions on knowledge and data engineering, Vol.9, no.4, 642–645》的计算结果不一样，函数的计算结果似乎把“特征选择”的功能去掉了，只剩下“数据离散化”的功能了，有哪位有该算法的完整代码呀？