Я пытаюсь сделать резюме для многих линейных моделей

Question

Я пытаюсь сделать резюме по переменным, которые представляют собой просто списки чисел, mats <- c (1,2,3,4,5). Однако, когда я запускаю свой код, он возвращает только один результат вместо повторения и составления сводок для всех переменных по сравнению с последним. </p>

summary_model <- function(...){
  args = list(...)
  n_args = length(args)
  for (i in 1: (n_args - 1)) {
    return(summary(lm(args[[i]] ~ args[[n_args]])))
  }
}