сглаживание нескольких столбцов в цикле for

Question

Я использую функцию ksmooth, чтобы сгладить мои данные. У меня есть несколько столбцов, которые я хотел бы сгладить. Я пытался использовать для l oop для выполнения sh этого, но я продолжаю получать согревающее сообщение: "АН введены путем принуждения".

 df <- data.frame(Time = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
                  A = c(3, 5, 8, 4, 2, 7, 6, 10, 9, 14),
                  B = c(2, 3, 1, 7, 10, 5, 9, 6, 11, 7))

 col_loop <- c("A", "B")

 for (i in col_loop){
      fit <- with(df, 
             ksmooth(Time, i, kernel = "box", bandwidth = 3))
      df <- df %>% mutate(paste0((i), "_smooth") = fit$y)
  }