r - R 中是否有相当于 Excel LOGEST 函数的函数？

Question

我需要精确复制 Excel 的 LOGEST R 中的函数，但无法找到不使用通用最小二乘估计的方法。在我自己编写一些自定义代码之前，有人遇到过这样的事情吗？

data <- 2:7

所需的输出(来自 Excel 的 LOGEST 函数):

1.27730742  1.758076359

Answer 1

只需记录数据，进行线性回归，然后计算结果。

result <- lm(log(data) ~ seq_along(data))
exp(result$coefficients)

(我本来会更早发现这一点，但我把 loge 和 log10 像个傻瓜一样混淆了。)

编辑:@Rui Barradas好心地将其变成一个函数:这里是:

logest <- function(y, x, ...){
  if(missing(x) || is.null(x)) x <- seq_along(y)
  result <- lm(log(y) ~ x, ...)
  exp(coef(result))
}

data <- 2:7
logest(data)
#(Intercept)           x 
#   1.758076    1.277307