所有一对一的lm（）（列）

Question

Product1    Product2    Product3    Product4    Product5    Product6
434 416 759 695 930 994
228 445 487 329 219 809
364 835 229 337 830 181
203 868 167 131 138 225
897 409 565 371 519 658
832 662 154 572 383 572
168 915 115 822 215 914
450 213 215 888 251 286
250 624 429 543 129 181

R编程：

我的数据集包含不同的列（每个列是一个类别，上面是模拟的）。我想在R线性模型中使用所有对（lm()，product1 ~ product2等，反之亦然，等等）构建product2 ~ product3，并捕获模型的所有结果。 当前应用的嵌套for循环并存储结果。有没有比使用循环更好的方法了？尝试了很少但没有太大进展（被击中）。

newdata1 <-expand.grid（x = colnames（DF），y = colnames（DF），stringsAsFactors = FALSE）

有了这对所有的组合，但是由于我在R中不是很出色，所以并不是真的要前进

out <-apply（expand.grid（x =字符串（DF），y =字符串（DF），stringsAsFactors = FALSE），MARGIN = 1，function（x）lm（x〜y，data = DF））

（＃清楚地知道第二行是错误的，但是尝试过这种方式）

非常感谢任何帮助。