begin change dataprepare/Rtool.R