# inst/shiny-squid/source/pages/modules/module1/UIMod1Step1.R In Haycen/SQUID: Statistical Quantification of Individual Differences

```# UI: Module 1 Step 1
span(

h4(Mod1Step1_txt\$title),           # Text: title

p(HTML(Mod1Step1_txt\$subgoal)),    # Text: subgoal
p(HTML(Mod1Step1_txt\$intro)),      # Text: introduction
p(HTML(Mod1Step1_txt\$exercise)),   # Text: exercise

# Number of individuals
getSliderInput("Mod1Step1_NI", Modules_VAR\$NI),

p(HTML(Mod1Step1_txt\$para1)),        # Text: Paragraph 1
p(HTML(Mod1Step1_txt\$explanation1)), # Text: Notation explanation
div(info_msg(Mod1Step1_txt\$note1)),  # Text: note

# Measurement error variance
getSliderInput("Mod1Step1_Ve", Modules_VAR\$Vm),

# Hidden variable:
# Mod1Step1_Vind: Intercepts and slopes (Co)variance matrix
conditionalPanel(
condition = "0",
uiOutput("Mod1Step1_hidden")
),

p(),
# Simulation run button
actionButton("Mod1Step1_Run", label = Modules_VAR\$Run\$label, icon= Modules_VAR\$Run\$icon, class="runButton"),
runningIndicator(), # Simulation progress bar
p(),

# Output
# Graph: density distribution of true and measured phenotypic values
plotOutput("Mod1Step1_plot", width = Modules_VAR\$Plot\$width),

# Table : display true and measured values (Vp, Vi and mean)
uiOutput("Mod1Step1_summary_table"),

p(HTML(Mod1Step1_txt\$point)),       # Text: point
p(HTML(Mod1Step1_txt\$solutions)),   # Text: solutions

# display statistical model
p(HTML(module1_txt\$statModTitle)),
p(HTML(Mod1Step1_txt\$statmodel1)),        # Text: statistical model paragraph 1
p(paste("\$\$",NOT\$trait.1,"_{",NOT\$time,NOT\$ind,"}=",NOT\$devI,"_",NOT\$ind,"+",NOT\$error,"_{",NOT\$time,NOT\$ind,"}\$\$",sep="")),
p(HTML(Mod1Step1_txt\$statmodel2)),        # Text: statistical model paragraph 2

p(HTML(Mod1Step1_txt\$statmodel3)),        # Text: statistical model paragraph 3
p(paste("\$\$V_p=V_",NOT\$devI,"+V_",NOT\$mError,"\$\$",sep="")),

div(class="line"),

# Go to next step
label = "Next Step (2) >>",