35行代码搞定事件研究法（下）

作者简介：

祝小宇，个人公众号：大猫的R语言课堂

前文推送：

35行代码搞定事件研究法（上）

Hello亲爱的小伙伴们，上期已经讲到如何对单一事件日计算超额收益，本期将会教大家如何针对多个股票多个事件日计算超额收益，Let's go!

注意 I，本代码主要使用data.table包完成，关于data.table包的相应知识会在涉及的时候进行讲解。在以后的课堂中，我们会重点介绍data.table这个包。

注意 II， 本代码还使用了partial()函数，它来自于pryr这个包

用data.table包处理多个事件日 

本期课堂的核心代码只有下面5行（应用了data.table包的语法）：

 car <- event[, {      ns <- which(event.flg == 1);      lapply(ns, partial(do_car, r = r, rm = rm, date = date)) %>% rbindlist()      },      by = stk.id]

虽然看起来似乎有些难懂，但如果我们将他分解为三部分，理解起来就容易多了。