remove statistic.R -a  duplicate function