我正在尝试随着时间的推移对数据进行回归，并且我怀疑我的因变量和自变量之间的关系可能存在滞后分量。我实际上在这里找到了一些在线数据，这些数据提供了一个很好的最小示例

sales<-data.frame(Quarter=1:8, Sales=c(16850, 12010, 14740, 13890, 12950, 15640, 14960, 13630), Newspaper=c(1000, 500, 2000, 1000, 1000, 500, 1000, 500), TV=c(500, 500, 500, 1000, 500, 1000, 1000, 1500), Online=c(1500, 500, 500, 1000, 500, 1000, 1000, 500))
lm(data=sales, Sales~Newspaper+TV+Online)

所以我发现的数据是每季度的销售数据和匹配的广告支出，但我预计广告和购买之间会有滞后。我怎样才能在这个数据中建模？