Подтверждают Линейная фильтрация для разного уровня скорости adstock

Question

Начиная с этого обсуждения:

simple examples of filter function, recursive option specifically

я найти простой способ adstock нескольких переменных, мой вопрос заключается в том, чтобы запустить несколько раз, эта функция дают различные уровни adstock ставка (от 0,05 до 0,9):

# Create Data 
a <- c(1, 1, 1, 1) 
b <- c(1, 1, 1, 1) 
var <- data.frame(a, b) 
names(var) <- c("var1", "var2") 

#Create a dataframe with the adstocked variable 
adstvar05 <- as.data.frame(filter(x=var, filter=0.05, method="recursive")) 
#Rename the new adstocked variable 
names(varadst05) <- paste0(names(var),"_05") 

Так что теперь я adstocked var1 и var2 с частотой adstock 0,05, переименование переменной и поместив их в другой dataframe.

Что мне нужно изменить, если я хочу, чтобы разные ставки adstock составляли от 0,05 до 0,9 с приращением 0,05.

Спасибо!

Answer 1

Я просто нашел решение на мой вопрос, что, может быть, это полезно для других в будущем, вот код:

output <- var 
for (i in seq.int(0.1,0.9,0.05)) { 
adst <- as.data.frame(filter(x=var, filter=i, method="recursive")) 
names(adst) <- paste0(names(var),"_", i) 
output<- cbind(output, adst) 
}