Skip to content
Extraits de code Groupes Projets
Valider 0cc3a67c rédigé par Alain Guillet's avatar Alain Guillet
Parcourir les fichiers

UI.R

parent 0434d255
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
##########################################################################
## ic Shiny/R app ui.R ##
## ##
## Author Grégoire Vincke http://www.uclouvain.be/gregoire.vincke ##
## For Statistical eLearning Tools http://sites.uclouvain.be/selt/ ##
## ##
## Licences : CC-BY for http://sites.uclouvain.be/selt/shiny/ic ##
## GPL for source code on http://github.com ##
##########################################################################
library(shiny)
shinyUI(pageWithSidebar(
headerPanel("Intervalles de confiances"),
sidebarPanel(
sliderInput("mx","µ : Moyenne de la population : ",min = 1,max = 100,value = 50, step=0.5),
sliderInput("sx","σ : écart-type de la population : ",min = 1,max = 25,value = 10, step=1),
sliderInput("n","n : nombre d'individus par échantillon :",min = 2,max = 25,value = 4, step=1),
sliderInput("confidence","Confiance (1-α) :",min = 0.5,max = 1,value = 0.7, step=0.005),
checkboxInput("seemu","Identifier µ", TRUE),
checkboxInput("seedor","Illustrer la distribution d'origine", FALSE),
checkboxInput("seedech","Illustrer la distribution d'échantillonnage", FALSE),
checkboxInput("seeicvarknown","Voir l'intervalle de confiance pour µ quand σ² est connue", FALSE),
checkboxInput("seeicvarunknown","Voir l'intervalle de confiance pour µ quand σ² est inconnue", FALSE),
checkboxInput("seeiconx","Voir la projection des limites des IC sur l'axe des abscisses", FALSE),
# checkboxInput("seeconfidence","Identifier la zone de confiance dans la population d'origine", FALSE),
checkboxInput("seeicpcevolution","Voir l'évolution du % d'IC qui couvrent µ", FALSE),
br(),
actionButton("takeech","Echantillonner"),
actionButton("reset","Reset"),
HTML('<hr style="border:1px solid #ccc;"/>'),
HTML('<a rel="license" href="http://creativecommons.org/licenses/by/2.0/be/"><img alt="Licence Creative Commons" style="border-width:0" src="http://i.creativecommons.org/l/by/2.0/be/80x15.png" /></a> Ce(tte) oeuvre de <span xmlns:cc="http://creativecommons.org/ns#" property="cc:attributionName">Statistical eLearning Tools</span> est mise à disposition selon les termes de la <a rel="license" href="http://creativecommons.org/licenses/by/2.0/be/">licence Creative Commons Attribution 2.0 Belgique</a>.'),
HTML("Code source disponible sur <a href="https://github.com/uclouvain-selt/shiny/tree/master/tcl" target="_blank">Github</a></p><p><a href="http://www.uclouvain.be/" target="_blank" title="Copyright - Université Catholique de Louvain"><img alt="Copyright - Université Catholique de Louvain" style="border-width:0" src="img/UCL_2018.png" width=150 /></a></p>')
),
mainPanel(
plotOutput("plotReality",height = "auto"),
plotOutput("plotSample",height = "auto"),
plotOutput("plotPercent",height = "auto")
)
))
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Veuillez vous inscrire ou vous pour commenter