多元回归方程

Question

有没有办法让我可以一起运行100个不同的回归并以表格形式将所有方程的输出结合在一起？ 任何软件都可以使用。 我需要使用对数线性模型找到100种商品的增长率。因此，我有100个方程，其因变量为ln（出口值），自变量为时间（0到30）。 因此，对100个方程式单独运行回归是很多手工工作。 我只要求所有100个方程的系数为t。有什么方法可以缩短这样做的时间吗？

Answer 1

例如，假设您在R中有一个数据框commodity_data，每个商品都是不同的列：

n <- ncol(commodity_data)
logslopes <- numeric(n)
tvec <- 0:(nrow(n)-1)
for (i in 1:n) {
  m <- lm(log(commodity_data[,i]) ~ tvec)
  slope <- coef(m)["tvec"]
  logslopes[i] <- slope
}

有一些方法可以做到这一点，但这个方法应该可以正常工作。