给出一个向量x说，
x <- c(10,0,0,20,0,0)
和0.8的广告股票，如何计算广告股票效应，如果结转效应小于某个限制k，说原值的一半，它将不再被结转。
没有这个条件，我可以简单地使用它：
filter(x, filter=0.8, method="recursive")
哪个给出了
10.0000 8.0000 6.4000 25.1200 20.0960 16.0768
但是考虑到这个条件，如果我们应用0.2到10的adstock，
10.0000 8.0000 6.4000 5.1200 4.096 3.2768 ...
结转效应应该在5.12处停止，因为4.096不到10的一半。所以预期的输出将是：
10.0000 8.0000 6.4000 25.1200 16.0000 12.8000