diff --git a/ui.r b/ui.r new file mode 100644 index 0000000000000000000000000000000000000000..11245c6fb4bb94fe6e1a412c7c5f23bef86454db --- /dev/null +++ b/ui.r @@ -0,0 +1,58 @@ +########################################################################### +## typeIvsII Shiny/R app ui.R ## +## ## +## Author Eugen Pircalabelu https://perso.uclouvain.be/eugen.pircalabelu ## +## For RShiny@UCLouvain http://sites.uclouvain.be/RShiny ## +## ## +## Licences : CC-BY for http://sites.uclouvain.be/RShiny ## +## GPL for source code on ## +## https://forge.uclouvain.be/rshiny_uclouvain/typeIvsII ## +########################################################################### + + +library(shiny) +library(shinyjs) +shinyUI(pageWithSidebar( + headerPanel("Erreurs de type I et II"), + + sidebarPanel( + tags$head( + tags$style(type="text/css", "label { display: inline; }"), + tags$style(type="text/css", '.checkbox input[type="checkbox"],.radio input[type="radio"] { float: none; }') + ), + + HTML(" H<sub>1</sub> est vrai et H<sub>0</sub> est faux <br>"), + HTML(" μ<sub>0</sub> :moyenne sous H<sub>0</sub> <br>" ),#Label put outside of sliderInput because HTML is not rendered inside sliderInput label + sliderInput("mu0", " " , value=0, min = -2, max = 0,step=0.1), + + + HTML(" μ<sub>1</sub> : moyenne sous H<sub>1</sub> <br>"), + sliderInput("mu1", " " , min = 0.5,max = 2,value = 0.5, step=0.1,animate = TRUE), + + HTML(" σ : écart-type de la population d'origine "), + sliderInput("sigma", " " , min = 1.5,max = 2.5,value = 1.5, step=0.1,animate = TRUE), + + HTML(" n : nombre d'individus par échantillon "), + sliderInput("n"," ",min = 10,max = 100,value = 10, step=5,animate = TRUE), + + HTML(" α : type I error "), + + sliderInput("alpha","",min = 0.01,max = 0.1,value = 0.01, step=0.01,animate = TRUE), + + p(HTML("<A HREF=\"javascript:history.go(0)\">Cliquez ici pour relancer l'expérience</A>")), + + + 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"> <font face="Courier"> RShiny@UCLouvain </font> </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('<p>Détails sur l\'utilisation de cette ressource sur <a href="http://sites.uclouvain.be/RShiny" + target="_blank"><font face="Courier"> RShiny@UCLouvain </font></a><br/> + Code source disponible sur <a href="https://forge.uclouvain.be/rshiny_uclouvain/typeIvsII " target="_blank">GitLab</a></p>') + ), + + mainPanel( + plotOutput("Plot") + ) +))