inst/shiny-squid/source/pages/modules/module1/ui_mod1_step3.R

In squid: Statistical Quantification of Individual Differences

# UI: Module 1 Step 3
span( 
  
  h4(Mod1Step3_txt$title),          # Text: title
  
  p(HTML(Mod1Step3_txt$subgoal)),   # Text: subgoal
  p(HTML(Mod1Step3_txt$intro)),     # Text: introduction
  p(HTML(Mod1Step3_txt$exercise)),  # Text: exercise
  p(HTML(Mod1Step3_txt$exercise2)), # Text: exercise 2
  
  # Number of individuals
  getSliderInput("Mod1Step3_NI", Modules_VAR$NI),
  
  # Among-individual variance (Vi)
  getSliderInput("Mod1Step3_Vi", Modules_VAR$Vi),
  
  # Measurement error variance
  getSliderInput("Mod1Step3_Ve", Modules_VAR$Vm),
  
  # Environment effects variance
  wellPanel(
    uiOutput("Mod1Step3_Vbx_txt"),
    uiOutput("Mod1Step3_error_Vbx")
  ),
  
  # Number of trait expressions sampled
  getSliderInput("Mod1Step3_NR", Modules_VAR$NR),
  
  conditionalPanel(
    condition = "0",
    uiOutput("Mod1Step3_hidden")
  ),
  
  # Simulation run button
  actionButton("Mod1Step3_Run", label = Modules_VAR$Run$label, icon= Modules_VAR$Run$icon, class="runButton"),
  runningIndicator(),
  sim_msg(),
  
  # Output
    # Graph: density distribution of true values (Vp)
    #        density distribution of blups (Vi)
    #        density distribution of environnemental effect (Vx1)
    #        density distribution of deviation from blups (Vme)
    plotOutput("Mod1Step3_plot", width = Modules_VAR$Plot$width),
    # Scatter plot: measurements correlation
    plotOutput("Mod1Step3_plot2", width = Modules_VAR$Plot$width),
    
    # Table : display true and measured values (Vp, Vi, Vme and mean)
    p(HTML(Mod1Step4_txt$para3)),    # Text: statistical result
    uiOutput("Mod1Step3_summary_table"),
  
  # Repeatability equation
  p(HTML(Mod1Step3_txt$para1)),         # Text: paragraph 1
  p(paste("$$Repeatability=\\frac{V'_",NOT$devI,"}{V'_",NOT$devI,"+V'_",NOT$residualUpper,"}$$",sep="")),
  textOutput("Mod1Step3_Rep_txt"),
  
  p(HTML(Mod1Step3_txt$point)),        # Text: point
  p(HTML(Mod1Step3_txt$point2)),       # Text: point 2
  p(HTML(Mod1Step3_txt$point3)),       # Text: point 3
  
  p(HTML(module1_txt$statModTitle)),
  p(HTML(Mod1Step3_txt$statmodel)),       # Text: statistical model 1
  p(paste("$$",NOT$trait.1,"_{",NOT$time,NOT$ind,"}=",
          NOT$devI,"_",NOT$ind,"+",
          NOT$error,"_{",NOT$time,NOT$ind,"}$$",sep="")),
  p(HTML(Mod1Step3_txt$statmodel2)),      # Text: statistical model 2
  p("The variance equation is now"),
  p(paste("$$V_",NOT$total,"=V_",NOT$devI,"+V_",NOT$residualUpper,"$$",sep="")),
  p("where"),
  p(paste("$$V_",NOT$residualUpper,"=V_{",NOT$mean," ",NOT$env,"}+V_",NOT$mError,"$$",sep="")),
  
  displayRCode(Mod1Step3_txt$RCode),
  
  div(class="line"),
  
  actionLink("Mod1Step3GotoStep2", label = "<< Previous Step (2)", class= "linkToModuleSteps"), # Go to previous step       
  span("......", class="step-Link"),
  actionLink("Mod1Step3GotoStep4", label = "Next Step (4) >>", class= "linkToModuleSteps") # Go to next step
)