一個情節我還在學習更多關於BSTS包,所以我,使用R AirPassengers DataSet和學習沿預測創建BSTS型號,如何繪製之前,對數似然和後使用BSTS包裝來自R
###library(lubridate)
###library(bsts)
###library(dplyr)
###library(ggplot2)
###Load the data
data("AirPassengers")
Y <- window(AirPassengers, start=c(1949, 1), end=c(1959,12))
ss <- AddLocalLinearTrend(list(), Y)
ss <- AddSeasonal(ss, Y, nseasons = 12)
bsts.model <- bsts(Y, state.specification = ss, niter = 500, ping=0, seed=2016)
burn <- SuggestBurn(0.1, bsts.model)
p <- predict.bsts(bsts.model, horizon = 12, burn = burn, quantiles = c(.025, .975))
我發現,當我看得更遠bsts.model,bsts.model $之前返回我這樣
然後bsts.model$log.likelihood
BSTS Model Log.Likelihood with 500 MCMC draws
而在去年P $分佈,我知道作爲後驗分佈是這樣的
Posterior distribution with 473 MCMC after burn each for month
,什麼我想知道:
爲什麼事先只給這一個值,而不是分銷?是否可以將這些繪製成一張照片/情節?
我檢查AirPassengers數據集使用EasyFit軟件,那麼結果就被安裝到這些參數ibb.co/dxwrvm Beta分佈,但我想知道更多,如果我可以用R請勿這些..
三江源在Advance
[編輯 - 2017年11月18日] ------------------------------------ --------------------
下面我只能繪製可能性和後驗之間的陰謀,因爲我仍然無法得到先前的想法來自:
情節(密度(ρ$分佈))
線(密度(AirPassengers),類型= 「L」)
如果我定義自己的前,我將使用隨機噸用RT(1000,12,650) 分佈,其中它產生1000次迭代,用df = 12,和中央線= 650,它將匹配整個曲線圖是這樣的:
drawt =室溫(1000,12,650)
條線(密度(drawt))
所以它清楚地看到,該現有(右側)X似然(左側)曾經創建這些後驗分佈,但BSTS包而不我可以生成後我定義任何事先......有人可以幫我解釋一下嗎?
(我已經在搜索Steve提到的state.specification,但它只是給了我一些趨勢和季節的previous.guess的列表,它仍然很難理解先前的分佈來自哪裏,如果有的話請給我更多的代碼實例)
Thankyou先生,我注意到你的回覆,我搜索了bsts.model $ state.specification,就像你說的Steve先生,我總結了這些:http://ibb.co/dJGuqw,你能解釋一些更多解釋一個和另一個有什麼區別?我的意思是什麼是不同initial.level.prior與initial.slope.prior是什麼?等等......這是指回歸係數?謝謝你,史蒂夫先生 –