在这里,which(event.flg == 1)的意思是返回所有event.flg变量等于1的那些行的序号,很自然的,在这里 ns 应该是一个向量。...为了做到这一点,我们运用了lapply() 函数。因此代码就变成了
lapply(ns, do_car)
那么,在最初给的那段代码中,partial()函数是用来干什么的呢?...1);
lapply(ns, partial(do_car, r = r, rm = rm, date = date)) %>% rbindlist()
},
by = stk.id...as.Date("2000-01-01"), by = "day", length.out = n.day))
event sapply(ars, function(x) t.test(x)$statistic),
p.ttest = sapply(ars, function(x) t.test