ui.R

In reos156/AnalisisSeriesTiempo:

library(shiny)
library(shinythemes)
library(forecast)

shinyUI(fluidPage(theme = shinytheme("superhero"),

    titlePanel("ANALISIS SERIES DE TIEMPO",windowTitle ="Análisis Series Tiempo" ),

    # fila 1
    fluidRow(
      column(12,
         p("Esta aplicación permitira el análisis exploratorio de un serie.")
      )
    ),
    # fila 2
    fluidRow(
      column(3,
               fileInput('data_serie', 'Cargar Datos formato (YYYY-MM | XXXX)',
                         accept=c('text/csv',
                                  'text/comma-separated-values,text/plain',
                                  '.csv'))
      ),
      column(3,
             numericInput('var_anyo','Ingrese Año',value =2012 )
      ),
      column(3,
             numericInput('var_mes','Ingrese Mes',value=01)
      ),
      column(3,
             selectInput("var_fre_1", "Frecuencia:",
                         c("Mensual" = 1,
                           "Trimestral" = 2
                         ),
                         selected = 1)
      )

    ),
    # fila 3
    fluidRow(
      column(12,
             tabsetPanel(
               tabPanel("Análisis Exploratorio",
                        fluidRow(
                          # fila 3-1
                          column(12,wellPanel(dygraphOutput("plot_serie"))),
                          # fila 3-2
                          #column(4,wellPanel(plotOutput("plot_histograma"))),
                          #column(4,wellPanel(plotOutput("plot_acf"))),
                          #column(4,wellPanel(plotOutput("plot_pacf"))),
                          column(4,plotOutput("plot_histograma")),
                          column(4,plotOutput("plot_acf")),
                          column(4,plotOutput("plot_pacf")),
                          # fila 3-3
                          column(12,wellPanel(verbatimTextOutput("resumen")))
                        )
               ),
               tabPanel("Modelos Regresión",
                        fluidRow(
                          # fila 3-1
                          column(12,h3("Seleccione Modelo 1:")),
                          column(4,wellPanel(selectInput("var_mod_1", "Modelo Regresion:",
                                                          c("Reg. Lineal" = 1,
                                                            "Reg. Cuadrática" = 2,
                                                            "Reg. Cúbica" = 3,
                                                            "Holt-Winters" = 4),
                                                          selected = 1)
                                            )
                          ),
                          column(4,wellPanel(selectInput("var_est_1", "Estacionalidad:",
                                                         c("Ninguno" = 1,
                                                           "Indicadoras" = 2,
                                                           "Trigonometricas" = 3
                                                           ),
                                                         selected = 1)
                                             )
                          ),
                          column(4,wellPanel(selectInput("var_pro_1", "Validación Cruzada (Meses):",
                                                         c("4" = 4,
                                                           "8" = 8,
                                                           "16" = 16,
                                                           "20" = 20,
                                                           "24" = 24
                                                         ),
                                                         selected = 4)
                                            )
                          ),
                          column(6,plotOutput("plot_reg_mod1")),
                          column(6,plotOutput("plot_reg_mod1_res")),
                          column(12,wellPanel(verbatimTextOutput("resumen_mod1")))
                        )
              ),
               tabPanel("Pronosticos",
                        fluidRow(
                         # fila 3-1
                         column(12,h3("Seleccione Modelo 1:")),
                         column(4,wellPanel(selectInput("var_mod_11", "Modelo Regresion:",
                                                        c("Reg. Lineal" = 1,
                                                          "Reg. Cuadrática" = 2,
                                                          "Reg. Cúbica" = 3,
                                                          "Holt-Winters" = 4),
                                                        selected = 1)
                         )
                         ),
                         column(4,wellPanel(selectInput("var_est_11", "Estacionalidad:",
                                                        c("Ninguno" = 1,
                                                          "Estacionalidad" = 2
                                                        ),
                                                        selected = 1)
                         )
                         ),
                         column(4,wellPanel(selectInput("var_pro_11", "Validación Cruzada (Meses):",
                                                        c("4" = 4,
                                                          "8" = 8,
                                                          "16" = 16,
                                                          "20" = 20,
                                                          "24" = 24
                                                        ),
                                                        selected = 4)
                         )
                         ),
                         column(12,plotOutput("plot_pro_mod1")),
                         column(12,wellPanel(verbatimTextOutput("resumen_pro1")))
                       )
               )
             )
      )
    )
  # cierre del fluidpage
  )
)