指数平滑：绘制 SSE 与 Alpha答案

【问题标题】：Exponential Smoothing : Plotting SSE vs Alpha指数平滑：绘制 SSE 与 Alpha
【发布时间】：2015-08-12 21:25:35
【问题描述】：

我可以运行以下代码：

fit1 <- ses(books[,1], alpha=0.99, initial="simple", h=4) #provide alpha manually

sse = sum((books[,1] - fitted(fit1))) # the one-step-ahead within-sample forecast errors

在上面代码的后面，我想创建 100 个对象并尝试使用 for 循环（下面的代码）。

for(i in seq(0,1,by=0.01))
{

paste("fit", i, sep = "_") <- ses(books[,1], alpha=i, initial="simple", h=4) #provide alpha manually

paste("sse", i, sep = "_") = sum((books[,1] - fitted(paste("fit", i, sep = "_")))) # the one-step-ahead within-sample forecast errors
}

我收到以下错误，

**Error in paste("fit", i, sep = "_") <- ses(books[, 1], alpha = i, initial = "simple",  : 
  target of assignment expands to non-language object**

以上代码是创建多个对象fit_0.01,fit_0.02....

这个循环可以工作吗？

【问题讨论】：

那是什么编程语言？它看起来是 R。
是的，它是R语言。我有这个称为书籍的时间序列数据。我正在尝试在指数平滑中绘制 SSE 与 alpha 值

标签： time-series smoothing

【解决方案1】：

您可以使用assign 运算符让循环按照您要求的方式执行：

for(i in seq(0, 1, by=0.1)) {
   assign(paste("fit", i, sep = "_"), ses(books[,1], alpha=i, initial="simple", h=4))
}

【讨论】：