Upload New File

ui.r

+###########################################################################
+## power 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/power          	         ##
+###########################################################################
+
+library(shiny)
+library(shinyjs)
+shinyUI(pageWithSidebar(
+  headerPanel("La fonction de puissance"),
+  
+  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(" &mu;<sub>0</sub> : moyenne sous H<sub>0</sub> : prend la valeur 1 <br>" ),#Label put outside of sliderInput because HTML is not rendered inside sliderInput label
+    # sliderInput("mu0", "" ,min = 1,max = 1,value = 1, step=0,dragRange=F),
+    
+	HTML(" &mu;<sub>1</sub> : moyenne sous H<sub>1</sub> : prend des valeurs entre 0 et 2 <br>"),
+	HTML(" H<sub>1</sub> est vrai H<sub>0</sub> est faux <br>"),
+    # sliderInput("mu","",min = 0,max = 2,value = 0, step=0,dragRange=F),
+    
+	HTML(" <br>"),
+
+	
+	HTML(" &sigma; : &eacute;cart-type de la population d'origine  "),
+    sliderInput("sigma","",min = 0.5,max = 2,value = 0.5, step=0.1,animate = TRUE),
+   
+   HTML(" n : nombre d'individus par échantillon  "),
+   sliderInput("n"," ",min = 5,max = 150,value = 5, step=5,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/power" target="_blank">GitLab</a></p>')
+  ),
+  
+  mainPanel(
+    plotOutput("Plot")
+  )
+))