Скорость роста всех столбцов

Question

У меня есть датафрейм, который состоит из 23 переменных. Я хочу рассчитать темп роста по лагу 1 из первых 22 переменных. Я пытался составить список mylist из всех 22 столбцов, а затем использовать функцию lapply, но она не работает. Набор данных называется data_nse

  temp4 <- lapply(mylist,function(x){ 
  data_nse$x <- (x-lag(x,1))/lag(x,1)  
 x})

Я получаю следующую ошибку

>  Error in attr(x, "tsp") <- c(1, NROW(x), 1) :    invalid time series
> parameters specified

Как правильно и эффективно это сделать? Я новичок в R.

Заранее спасибо!