uplift model在R中的代码

uplift model在R中的代码怎么用？有没有案例啊，最近在学这个模型，有没有一起的小伙伴一起啊