-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
69 lines (62 loc) · 3.26 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
library(shiny)
fluidPage(theme = "myCSS.css",
tags$head(
HTML('
<script src="https://polyfill.io/v3/polyfill.min.js?features=es6">
</script><script id="MathJax-script" async src="https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-mml-chtml.js"></script>'
)),
h2("Estimation des paramètres"),
sidebarLayout(
sidebarPanel(width = 2,
selectInput("model", "Modèle :",
c("b0" = "M1",
"b0 + b1*heures" = "M2")),
conditionalPanel(
condition = "input.model == 'M1'",
tags$text("$$notes = \\hat{notes} + e$$"),
tags$text("$$\\hat{notes} = \\textit{b}_{0}$$"),
sliderInput("b0M1", "\\(\\textit{b}_{0}\\)",
min = 0, max = 20, value = 4, step = .2, animate = TRUE),
),
conditionalPanel(
condition = "input.model == 'M2'",
tags$text("$$notes = \\hat{notes} + e$$"),
tags$text("$$\\hat{notes} = \\textit{b}_{0} + \\textit{b}_{1}heures$$"),
sliderInput("b0M2", "\\(\\textit{b}_{0}\\)",
min = 0, max = 20, value = 10, step = .2, animate = TRUE),
sliderInput("b1M2", "\\(\\textit{b}_{1}\\)",
min = -10, max = 10, value = 0, step = .2, animate = TRUE),
),
checkboxInput('ploty', tags$text('Donées', id = "y"), value = TRUE),
checkboxInput('plotyhat', tags$text('Prédictions', id = "yhat")),
checkboxInput('plote', tags$text('Erreurs', id = "error")),
checkboxInput('plotSS', tags$text('SCE', id = "SS"))
),
mainPanel(
fluidRow(
column(width = 8,
tabsetPanel(
tabPanel("notes x étudiant",
plotOutput("plot1")
),
tabPanel("notes x heures",
plotOutput("plot4", width = "100%")
),
tabPanel("ajustement du model",
verbatimTextOutput("mdlFit")),
tabPanel("data",
tableOutput("tableData"))
)
),
column(width = 4, style='margin-top:25px;',
conditionalPanel(condition = "input.plotSS == true & input.model == 'M1'",
plotOutput("plot2", width = "100%"),
),
conditionalPanel(condition = "input.plotSS == true & input.model == 'M2'",
plotOutput("plot3", width = "100%")
)
)
)
)
)
)