Estoy tratando de hacer un ejercicio para familiarizarme con el uso de la función de mapa en ronroneo. Estoy creando algunos datos aleatorios (10 columnas de 10 puntos de datos) y luego quería usar el mapa para realizar una serie de regresiones (es decir, lm (y ~ x, data =)) sobre las columnas resultantes en el marco de datos.

Si solo uso repetidamente la primera columna como 'y', quiero realizar 10 regresiones con cada columna del 1 al 10 como 'x'. Obviamente, los resultados no son importantes, es solo el método. Quiero terminar con una lista de 10 objetos de modelo lineal.

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)

Aquí, me quedo atascado:

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

Cualquier consejo sería apreciado.

Gracias.