在 R 中定义 log-likehood 函数

问：

对数似然函数的屏幕截图

我确实需要帮助在 R 中构建一个对数似然函数，该函数估计我的期货-现金基差时间序列数据集的均值回归速度。因此，我需要将屏幕截图中显示的函数放入 R 中。我在准确定义 R 应该期望什么时遇到了问题。

目前，我确实拥有将所有期货现金基差存储为时间序列的数据集。这在屏幕截图中显示为 B（t） 或 B（t+1）。

我尝试了类似的东西：

log_likelihood_function <- function(pars, object){
  mu <- pars[1]
  gamma <- pars[1]
  n <- nrow(object)
  logl <- -0.5n*ln*2*pi - sum(gamma**2(d_till_exp-1))/(2*mu-1)(1-(1-(1/d_till_exp)**2*mu-1))
}

目前我真的不知道如何进行。Mabye，你们中的某个人也有类似的问题，可以给我一个提示