在画面中显示精度函数的结果

Question

我使用下面的代码在表格中用r进行预测。我将20小时预测附加到SaleCount数据的一年结束。

我希望能够显示预测的准确性。

我希望能够从r显示精度函数的结果，例如：

fcastAccuracy<-accuracy(fcast, tsTest)
fcastAccuracy[2,2] ##RMSE

在画面中，当您将鼠标悬停在图表上的预测时，可能是文本表格或工具提示。

有人知道如何在视觉上显示预测的准确性，或者只是通过显示当您将鼠标悬停在可视化中的预测时将精确度的RMSE值作为工具提示来表示吗？

代码：

SCRIPT_REAL("library(forecast);
l<-length(.arg1);
u<-.arg1[1:(l-.arg2[1])];
n<-length(u);
u[n]=.arg1[l];
jjearnts <- ts(u,frequency=24);
fcast <- forecast(jjearnts, h=.arg2[1]);
append(u,fcast$mean, after = n)",
[SaleCount],[PeriodsToForecast])