使用Shiny的ETS模型

我試圖用新的RStudio功能創建一個Web應用程序Shiny。我正在嘗試ETS狀態空間模型。我想手動指定模型類型（服務器中的粗體文本.R）。我在server.R中的引號內給出了輸入。如果我們在報價單中提供iputs，則不會採用。能否請你幫我...使用Shiny的ETS模型

ui.R

library(shiny) 
shinyUI(pageWithSidebar(
    headerPanel("Forecast", "Flowserve"), 
    sidebarPanel(
    fileInput('file1', 'Select csv file', 
       accept=c('text/csv') 
      ), 
    checkboxInput('header', 'Header', TRUE), 
    radioButtons('sep', 'Separator', 
       c(Comma=',', Semicolon=';', Tab='\t') 
       ), 
    tags$hr(), 
    numericInput("startyear", "Start Year and Month",2010), 
    sliderInput("month","",min=1, max=12,value=1, step=1, animate=T), 

    tags$hr(), 
    selectInput("error", "Error Type", list("Multiplicative"="M","Additive"="A")), 
    selectInput("trend", "Trend Type", list("Multiplicative"="M","Additive"="A", "Null"="N")), 
    selectInput("seasonal", "Seasonal Type", list("Multiplicative"="M","Additive"="A", "Null"="N")), 
    submitButton("UPDATE") 
), 

    mainPanel(

    tabsetPanel(
    tabPanel("Data", tableOutput('contents')), 
    tabPanel("Time Plot", plotOutput('tsplot')), 
    tabPanel("Forecast", plotOutput('plotforecast')) 
      ) 
    ) 
))

server.R

library(shiny) 
library(forecast) 
shinyServer(function(input,output){ 

    data1 = reactive({ 
    inFile<-input$file1 
    if(is.null(inFile)) 
    return(NULL) 
    read.csv(inFile$datapath, header=input$header, sep=input$sep) 
    }) 
output$plotforecast<-renderPlot(function(){ 
    datats<-ts(data1(), start=c(input$startyear,input$month), frequency=12) 
    model<-ets(datats, model="input$error input$trend input$seasonal") 
    fit1<-fitted(model) 
    future1<-forecast(model, h=4, level=c(95,97.5)) 
    p2<-plot.forecast(future1,shadecols=c("yellow","orange"), xlab=expression(bold(Year)), ylab=expression(bold(Demand))) 
    print(p2) 
    })

來源

2013-08-26 Punith

嘗試用'model <-ets（datats，model = paste0（input $ error，...）替換'model <-ets（datats，** model =「input $ error input $ trend input $ seasonal」**）輸入$趨勢，輸入$季節））'。 – sgibb

非常感謝Sgibb ...它正在工作...... 請問你能說出「paste0」是什麼意思嗎？ – Punith

請注意，不需要明確的換行符（'
'），我將它們刪除。 –

你應該model<-ets(datats, model=paste0(input$error, input$trend, input$seasonal))取代model<-ets(datats, **model="input$error input$trend input$seasonal"**)因爲model參數想到3 -letter串。 paste0連接字符向量（有關詳細信息，請參見?paste0）。

來源

2013-08-27 07:07:49 sgibb

使用Shiny的ETS模型

回答

相關問題