Я пытаюсь выполнить упражнение, чтобы лучше узнать, как использовать функцию карты в мурлыканье. Я создаю некоторые случайные данные (10 столбцов из 10 точек данных), а затем я хотел использовать карту для выполнения серии регрессий (то есть lm (y ~ x, data =)) над результирующими столбцами в фрейме данных.

Если я просто несколько раз использую первый столбец как «y», я хочу выполнить 10 регрессий с каждым столбцом от 1 до 10 в качестве «x». Очевидно, что результаты не важны - это всего лишь метод. Я хочу закончить со списком из 10 объектов линейной модели.

list_of_vecs <- list()
for (i in 1:10){ 
 list_of_vecs[[paste('vec_', i, sep = '')]] <- rnorm(10,0,1)
}
df_of_vecs <- as.data.frame(list_of_vecs)

Здесь я застрял:

map(df_of_vecs, ~ lm(df_of_vecs[[1]] ~ . ?)

Любые советы будут оценены.

Благодарю.