Skip to content

Instantly share code, notes, and snippets.

@adelmofilho adelmofilho/server.R
Last active Dec 23, 2015

Embed
What would you like to do?
library(shiny)
library(googleVis)
library(gplots)
# Definição do server
shinyServer(function(input,output){
data = reactive({
# Parâmetros do conjunto amostral
n = input$obs
mean = input$media
sd = input$desvio
x = rnorm(n,mean,sd)
})
dor = reactive({
wq = input$media_des
lev = input$conf/100
asd = input$tipo
z = t.test(data(),alternative = asd, conf.level = lev, mu = wq)
})
output$plot = renderPlot({
hist(data(),freq=FALSE,main="",xlab="",col="lightblue",ylab="Probabilidade")
if (input$curva == TRUE)
lines(density(data(),adjust=2), lty="dotted")
if (!is.null(input$media_des))
abline(v=mean(input$media_des),col="red",lty=2)
})
output$summary <- renderPlot({
q = hist(data(),freq=FALSE,main="",xlab="",col="lightblue",ylab="Probabilidade")
plotCI(mean(data()),y=0,err="x",ui=dor()$conf.int[2], li=dor()$conf.int[1],pch=16,xlim=c(min(q$breaks),max(q$breaks)),xlab="",ylab="")
if (!is.null(input$media_des))
abline(v=mean(input$media_des),col="red",lty=2)
})
output$teste <- renderPrint({
z = dor()
po <- matrix(c(z$p.value, z$conf.int[1],z$conf.int[2]), nrow = 3, ncol = 1, byrow = FALSE,
dimnames = list(c("P-Valor", "Limite superior do I.C","Limite inferior do I.C"),
c("Valor")))
print(po)
})
})
## Interface gráfica do Programa
# Carregamento das bibliotecas de funções
library(ggplot2)
library(shiny)
library(googleVis)
# Variáveis Pré-alocadas
grupo_pesquisa = "Grupo de Pesquisas GAMA"
# Definição da interface gráfica
shinyUI(pageWithSidebar(
# Título do Programa
headerPanel("Teste T de Student"),
# Painel Lateral
sidebarPanel(
conditionalPanel(condition = "input.conditionedPanels == 2",
HTML('<div align = "center">
<img src = "https://fbcdn-sphotos-a-a.akamaihd.net/hphotos-ak-ash3/1383642_376136742517953_120217301_n.jpg" height="200" width="400">
</div>
<br clear = "all" />'),
helpText(
HTML('<p align = "justify">
O teste T de Student simples permite verificar, se para um conjunto de dados distribuidos normalmente,a média do conjunto amostral
é estatísticamente equivalente a um determinado valor pré-definido. Inicialmente, determine as caracteristicas do conjunto amostral e em seguida as condições para realização do test T.
Busque modificar os parâmetros e verificar os parâmetros de maior influência na realização do teste.
</p>')),
tags$hr(),
sliderInput("obs", "Número de observações:",
min = 10, max = 10000, value = 100, step= 1),
sliderInput("media", "Valor da média:",
min = -10, max = 10, value = 0, step= 0.1),
sliderInput("desvio", "Valor do desvio-padrão:",
min = 0.1, max = 3, value = 1, step= 0.1),
br(),
checkboxInput("curva","Curva de densidade de probabilidade",value=FALSE),
tags$hr(),
radioButtons("tipo","Tipo de teste de hipotése:", c("Bilateral" = "two.sided",
"Unilateral à direita" = "greater",
"Unilateral à esquerda" = "less")),
br(),
numericInput("conf","Nivel de confiança (%)",value=95,max=100),
br(),
numericInput("media_des","Valor desejado",value=0,step=0.1),
tags$hr(),
# Link do site do grupo de pesquisa
a(grupo_pesquisa, href="http://gamaufba.wordpress.com/", align="center")
)),
# Painel Principal
mainPanel(
# 1° Painel Principal
# Sub-Paineis
tabsetPanel(
tabPanel("Teste T",plotOutput("plot"),plotOutput("summary"),h3(textOutput("Teste T de Student")),verbatimTextOutput("teste"), value=2),
id = "conditionedPanels"
)
)
)
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.