Commit 7e495bd3 authored by Eduardo E. R. Junior's avatar Eduardo E. R. Junior
Browse files

Reorganiza layout da aplicação

Separa os gráficos referentes à distribuição amostral da média e os
exibe separadamente, pois empilhadas dificultam a visualização dos
outputs e inputs conjuntamente.
parent 3573f85e
......@@ -277,4 +277,42 @@ shinyServer(
) ## switch()
}) ## renderUI
## Opções para média amostral
output$OptsMedia <- renderUI({
if (input$tab == "Distribuição") {
return(NULL)
} else {
wellPanel(
numericInput(
inputId="n",
label="Tamanho da amostra:",
min = 2, max = 1000, value=10),
HTML("<label>Tipo de gráfico: </label>"),
tabsetPanel(
id = "graf",
type = "pills",
tabPanel("Density"),
tabPanel("ECDF"),
tabPanel("Q-QNorm")
),
helpText("Baseados em 500 amostras")
)
}
})
## Gráficos para a distribuição média amostral
output$grafsMedia <- renderUI({
if (is.null(input$graf)) {
return(NULL)
} else {
switch(
input$graf,
"Density" = plotOutput("density"),
"ECDF" = plotOutput("ecdf"),
"Q-QNorm" = plotOutput("qqnorm")
)
}
})
}) ## shinyServer()
......@@ -13,19 +13,22 @@ shinyUI(
titlePanel("Distribuições de probabilidade"),
sidebarPanel(
numericInput(inputId="n",
label="Tamanho da amostra:",
value=10),
selectInput(inputId="dist",
label="Distribuição",
choices=choi),
uiOutput("ui")
uiOutput("ui"),
uiOutput("OptsMedia")
),
mainPanel(
plotOutput("plot"),
plotOutput("density"),
plotOutput("ecdf"),
plotOutput("qqnorm")
tabsetPanel(
id = "tab",
tabPanel("Distribuição",
plotOutput("plot")),
tabPanel("Distribuição Amostral da Média",
uiOutput("grafsMedia")
)
)
)
)
)
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment