Skip to content
Extraits de code Groupes Projets
Valider b3cf4b7a rédigé par Eugen Pircalabelu's avatar Eugen Pircalabelu
Parcourir les fichiers

Upload New File

parent 9827e329
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
###########################################################################
## 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")))
)
)
)
)
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