如何在R中做出预测？

Question

我有一份有关合同的数据集，这些数据在一年内有17年的历史。 我想绘制即将到来的季度的预测。

我试过了：

library(forecast)

# group dataset
dataset <- aggregate(Paid Amount ~ Calendar Year Qtr, data = dataset, FUN= sum)

# create a time series based on yer qrt
ts <- ts(dataset$Paid Amount, frequency=7)

# pull out the seasonal, trend, and irregular components from the time series (train the forecast model)
decom <- stl(ts, s.window = "periodic")

# predict the next 2 qrt
pred <- forecast(decom, h = 2)

# plot the predicted values
plot(pred)

我是从我的ralational数据库（SQL）在Power BI中运行它。我使用相同的脚本，频率和预测步骤的微小变化用于绘制货币汇率，但是这个不起作用。 任何帮助将不胜感激。

示例数据：

Calendar Year Qrt | Paid Amount
2000Q1            | 43 453 121
2000Q2            | 121 754 123
....
2017Q2            | 178 456 123