0
我正在尋找一個簡單的例子(或鏈接到一個),使用基地霍爾特溫特斯或預測包中的R來繪製與預測相同的範圍內的實際。R霍爾特溫特斯預測火車/測試
我看過很多例子,顯示實際/擬合在一起,或實際'後跟'的預測,但我無法找到與實際/預測一起運行的代碼示例。
我之所以這樣做,是使用一個實際的子集(列車)創建一個預測,然後刪除完整的數據集,這樣我就可以展示預測的真實效果。希望這是有道理的,並提前感謝任何幫助!
我正在尋找一個簡單的例子(或鏈接到一個),使用基地霍爾特溫特斯或預測包中的R來繪製與預測相同的範圍內的實際。R霍爾特溫特斯預測火車/測試
我看過很多例子,顯示實際/擬合在一起,或實際'後跟'的預測,但我無法找到與實際/預測一起運行的代碼示例。
我之所以這樣做,是使用一個實際的子集(列車)創建一個預測,然後刪除完整的數據集,這樣我就可以展示預測的真實效果。希望這是有道理的,並提前感謝任何幫助!
找到一個非常簡單的解決方案,使用dygraph軟件包。這可能是一個簡單的事情,但在離開我的問題/回答在這裏櫃面其他新手遇到並試圖做同樣的事情:
我把代碼從這個鏈接(第2圖): https://rstudio.github.io/dygraphs/gallery-upper-lower-bars.html
並修改爲:
library(dygraphs)
library(magrittr)
#hw <- HoltWinters(ldeaths)
hw <- HoltWinters(window(ldeaths, 1974, c(1976,12))) #subset timeseries to first 3 years in ldeath (train data)
p <- predict(hw, n.ahead = 36, prediction.interval = TRUE) #predict for the last 3 years in ldeath (test data)
all <- cbind(ldeaths, p) #we add full ldeaths into graph to see test data (1977,78,79) against the prediction
dygraph(all, "Deaths from Lung Disease (UK)") %>%
dySeries("ldeaths", label = "Actual") %>%
dySeries(c("p.lwr", "p.fit", "p.upr"), label = "Predicted")