Question

让我们说我们的数据集如下所示;

demand <- ts(BJsales, start = c(2000, 1), frequency = 12)
plot(demand)

现在我将timeseries对象传递给HoltWinter并绘制拟合数据。

hw <- HoltWinters(demand)
plot(hw)

我想区分需求和拟合数据以找到平均绝对偏差（MAD）。我接受了hw$x的要求我按hw$fit

进行了调整

accu_Holt_data <- as.data.frame(hw$x)
 fore_holt <- as.data.frame(hw$fit)
differnce <- accu_Holt_data - fore_holt

由于行长不同，

差异不大

Answer 1

按照上面的评论，您可以执行以下操作：

  it("Expect date should be validated", function () {
            var date = "2016-05-04";
            scope.isValidatStartDate(date);
            expect(scope.endMaxDate).toBe("Wed May 04 2016 00:00:00 GMT+0530 (India Standard Time)");
        });

您的方法存在两个主要问题：首先，hw $ fit是一个多列数据框，其中第一列xhat表示过滤后的系列。其次，两次系列有不同的指数。因此需要像cbind那样合并时间序列。

寻找Holtwinter中的平均绝对偏差

1 个答案: