用R语言模仿了baseline流程