Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
##########################################################################
## 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")
)
))