-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
104 lines (97 loc) · 5.57 KB
/
ui.R
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
shinyUI(fluidPage(
theme = shinytheme("united"),
titlePanel("SimulatR - Simuler les situations d'inférence",
tags$head(tags$link(rel = "icon", type = "image/png", href = "favicon.png"),
tags$title("SimulatR - Simuler les situations d'inférence"))
),
tabsetPanel(
# Guide ----
tabPanel("Guide d'utilisation",
fluidRow(column(2),
column(7, includeMarkdown("README_app.md")),
column(3))),
tabPanel("Estimation d'une moyenne (Gauss)",
fluidRow(column(12,
fluidRow(column(3,
sliderInput("varlevmean", label = "Variabilité (écart-type)", min = 0, max = 20, value = 10, step = 1)),
column(3,
sliderInput("sampsizemean", label = "Taille de l'échantillon", min = 10, max = 1000, value = 100, step = 1)),
column(1,
actionButton("getonemean", label = "1 tirage")),
column(1,
actionButton("gettenmean", label = "10 tirages")),
column(1,
actionButton("gethundredmean", label = "100 tirages")),
column(1,
actionButton("resetmean", label = "Remettre à zéro"))))),
fluidRow(
column(6,
plotOutput("plotpopmean"),
dataTableOutput("tabmean")),
column(6,
plotOutput("plothist"),
sliderInput("levalphamean", label = "Choisir le seuil alpha", min = 0.01, max = 0.5, value = 0.05, step = 0.01),
plotOutput("meandistrib")))),
tabPanel("Occurrences (Poisson)",
fluidRow(column(12,
fluidRow(column(3,
sliderInput("sampsizepoiss", label = "Nombre d'occurrences", min = 10, max = 1000, value = 100, step = 1)),
column(1,
actionButton("getonepoiss", label = "1 tirage"))))),
fluidRow(
column(6,
plotOutput("plotpoppoiss")),
column(6,
tags$h4("Moyenne et variance"),
htmlOutput("summarypoiss"),
tags$h4("Fréquence observée"),
tableOutput("contpoiss"),
tags$h4("Fréquence espérée (lambda = moy. empirique)"),
tableOutput("probapoiss")
))),
tabPanel("Comparaison de moyennes (Student)",
fluidRow(column(12,
fluidRow(column(3,
sliderInput("varlevcomp", label = "Variabilité (écart-type)", min = 0, max = 20, value = 10, step = 1)),
column(3,
sliderInput("sampsizecomp", label = "Taille de l'échantillon", min = 10, max = 1000, value = 100, step = 1)),
column(1,
actionButton("getonecomp", label = "1 tirage")),
column(1,
actionButton("gettencomp", label = "10 tirages")),
column(1,
actionButton("gethundredcomp", label = "100 tirages")),
column(1,
actionButton("resetcomp", label = "Remettre à zéro"))))),
fluidRow(
column(6,
plotOutput("plotpopcomp"),
dataTableOutput("tabcomp")),
column(6,
plotOutput("plothistcomp"),
sliderInput("levalphacomp", label = "Choisir le seuil alpha", min = 0.01, max = 0.5, value = 0.05, step = 0.01),
plotOutput("tdistrib")))),
tabPanel("Contingence (Khi2)",
fluidRow(column(12,
fluidRow(column(6,
sliderInput("sampsizechi", label = "Taille de l'échantillon", min = 10, max = 1000, value = 100, step = 1, width = "80%")),
column(1,
actionButton("getonechi", label = "1 tirage")),
column(1,
actionButton("gettenchi", label = "10 tirages")),
column(1,
actionButton("gethundredchi", label = "100 tirages")),
column(1,
actionButton("resetchi", label = "Remettre à zéro")))
)),
fluidRow(
column(6,
plotOutput("plotpopchi"),
dataTableOutput("tabchi")),
column(6,
plotOutput("plotmosaic"),
sliderInput("levalphachi", label = "Choisir le seuil alpha", min = 0.01, max = 0.5, value = 0.05, step = 0.01),
plotOutput("chidistrib"))))
)
)
)