/
ui.R
71 lines (59 loc) · 2.4 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
library(shiny)
shinyUI(fluidPage(
tags$head(
tags$style(HTML("
td, th {
padding-left: 5px;
padding-right: 5px;
}
h3 {
font-size:20px;
}
"))
),
# Application title
titlePanel("What happens when you use random assignment?"),
sidebarLayout(
sidebarPanel(
helpText("Choose your study group's size."),
uiOutput("dataset"),
selectInput("dataset",
label = "Choose a study population",
choices = list("2538", "250",
"100"),
selected = "GSS")
)
,
mainPanel(
tabsetPanel(
tabPanel("About",
includeMarkdown("./docs/about.Rmd")
),
tabPanel("Assignments",
h3("Assignment for the first 10 people"),
p("Look at the list of groups. Groups are randomly assigned. If you try this a few times you will see the list changes"),
br(),
htmlOutput("head"),
br(),
h3("Comparisons of the Treatment and Control Groups"),
h3("Compare the mean years of age"),
htmlOutput("compage"),
br(),
h3("Compare the mean years of education"),
htmlOutput("comparisons"),
br(),
h3("Compare the percent of each gender"),
htmlOutput("compsex"),
br(),
h3("Compare the percent of each race"),
htmlOutput("comprace"),
br(),
h3("Compare the percent of each zodiac sign"),
h4("Why not? After all, random assignment is supposed to work for any variable"),
htmlOutput("compzodiac")
)
)
)
)
)
)