Upload New File

ui.r

+###########################################################################
+## bootCI 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/bootCI 	                 ##
+###########################################################################
+
+library(shiny)
+library(shinyjs)
+library(RColorBrewer) 
+library(shinyWidgets)
+library(shinycssloaders)
+library(xtable)
+library(shinyBS)
+shinyUI(fluidPage(
+  headerPanel("Non-parametric Bootstrap"),
+  
+  sidebarLayout(
+  
+  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("X~Exp(&mu;) with &mu; = <br>"),
+	numericInput("mu", " " , min = 0,max = 100,value = 50, step=10),
+    
+	HTML("Sample size  n = <br>"),
+	numericInput("n","",min = 10,max = 30,value = 10, step=5),
+	
+	actionButton(inputId="submit_model",label="Sample",width="150px"),
+	hr(),
+    
+    HTML("Number of bootstraap resamples B = <br>" ),
+	numericInput("B", "", value=25, min = 1, max = 50,step=1),
+		
+	HTML("Results for b-th bootstraap sample where b = <br>" ),
+	sliderInput("bb", "", value=1, min = 1, max = 5,step=1,animate=T),
+	
+	actionButton(inputId="refresh",label="Refresh",width="150px"),
+  
+  	p(HTML("<A HREF=\"javascript:history.go(0)\">Click here to restart the experiment</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/bootCI" target="_blank">GitLab</a></p>')
+	
+  ),
+  
+  mainPanel(
+    plotOutput("Plot",height=800, width = "99%")
+	
+	# fluidRow(withSpinner(
+          # tableOutput(outputId="res_table")))
+  
+  )
+)
+)
+)