yongsheng's R functions and packages