如何使用mapply计算CCF作为时间序列对的列表？

I am trying to apply functions described here for a set of time series. For this, mapply seems to be a good approach but I guess there is some problem either in defining the function or in using mapply. f