Rの時系列予測では、為替レートの予測にarima + stlモデルを使用しました。Rの時系列予測 - 予測日程の範囲をお伝えください
ui.R
shinyUI(
sidebarLayout(
headerPanel("Time Series forecasting with arima+stl"),
sidebarPanel(
dateRangeInput('dateRange',
label = paste('Date range selection'),
start = textOutput("text1"),
end = textOutput("text2"),
separator = " - ",
weekstart = 1
)
),
mainPanel(
textOutput("text1"),
textOutput("text2"),
textOutput('forecast')
)
)
)
server.R
library(forecast)
parameters <- read.csv("~/RWD/stl+arima/data/parameters.csv")
shinyServer(
function(input, output, session){
predictVariable <- ts(parameters[,2],start=c(2000,1),end=c(2009,12),frequency=12)
fit.stl <- stl(predictVariable, s.window = "periodic")
factors <- ts(as.data.frame(parameters[,3:8]),start=c(2000,1),end=c(2009,12),frequency=12)
outfactors <- ts(parameters[,3:8],start=c(2010,1),end=c(2012,12),frequency = 12)
output$forecast <- renderPrint({ forecast(fit.stl,h=10,
forecastfunction=function(x,h,level=95){
fit <- Arima(x,xreg=factors)
return(forecast(fit,xreg=outfactors))})
})
})
上記のコードは正常に動作しています。 2000年から2009年までのデータは、今後3年間の為替レートを予測するために使用されます。私のデータはパラメータです。しかし、ユーザーが為替レートの予測を必要とする開始日と終了日を記述できるユーザーインターフェイスを作成したい。 server.Rでは、予測関数で、ui.Rの入力として取得した日付を使用して、予測が必要な開始日と終了日をどのように記述しますか。
申し訳ありませんが、以前は2つのRファイルについて明示的に言及していませんでした。私は今質問を編集しました。 ui.Rに入力された日付を使用するserver.Rの予測機能を変更するにはどうすればよいですか? – BRS
あなたの 'forecast(fit)'オブジェクトで 'funggcast'関数を使うことをお勧めします。 'funggcast'は私の記事に掲載された第3のリンクです。これにより、日付と予測を含む予測オブジェクトからテーブルが作成されます。あなたの 'dateRangeInput'はこのテーブルを参照できます。 – Warner
私はそれを私のコードに組み込みます。ありがとうたくさん:) – BRS