Генерация сглаживающих сплайнов для нескольких столбцов одновременно

Question

Есть ли способ применить функцию splinefun к нескольким столбцам данных временных рядов одновременно?Вот некоторые примеры данных:

Index <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
A <- c(3, 4, 3, 3, 3, 5, 6, 7, 6, 4)
B <- c(4, 6, 8, 7, 5, 4, 3, 2, 2, 2)
df <- as.data.frame(cbind(Index, A, B))

Я пытался сделать

lapply(df[, 2:3], splinefun(df$Index, df[, 2:3]))

, но это не сработало.

Answer 1

Как насчет:

list_of_functions <- lapply(df[, 2:3], function(col) splinefun(df$Index, col))