diff --git a/Thumbs.db b/Thumbs.db
new file mode 100644
index 0000000..eb32619
Binary files /dev/null and b/Thumbs.db differ
diff --git a/npRCT_design.png b/npRCT_design.png
new file mode 100644
index 0000000..efcabeb
Binary files /dev/null and b/npRCT_design.png differ
diff --git a/server.R b/server.R
index b662dcb..6401301 100644
--- a/server.R
+++ b/server.R
@@ -56,7 +56,7 @@ server <- function(input, output) {
       output$n_total <- renderText({ 
             
             temp <- npRCT()
-            paste("Sample size for the total npRCT is: ", 
+            paste("Total npRCT sample size: ", 
                   temp$n_total * 2, sep = "")
             
       })
@@ -64,7 +64,7 @@ server <- function(input, output) {
       output$n_traditional <- renderText({ 
             
             temp <- npRCT()
-            paste("Sample size (per group) for the traditional RCT is: ", 
+            paste("Traditional RCT sample size (per group): ", 
                   temp$n_strat, sep = "")
             
       })
@@ -73,7 +73,7 @@ server <- function(input, output) {
       output$n_precision <- renderText({ 
             
             temp <- npRCT()
-            paste("Sample size (per group) for the precision RCT is: ", 
+            paste("Precision RCT sample size (per group): ", 
                   as.character(temp$n_total - temp$n_strat), sep = "")
             
       })
diff --git a/ui.R b/ui.R
index c7d404d..b324d90 100644
--- a/ui.R
+++ b/ui.R
@@ -51,10 +51,10 @@ body <- dashboardBody(
                                       collapsible = FALSE,
                                       
                                       h3("Estimated Sample Sizes"),
-                                      textOutput("n_total"),
+                                      strong(textOutput("n_total")),
                                       br(),
-                                      textOutput("n_traditional"),
-                                      textOutput("n_precision"),
+                                      strong(textOutput("n_traditional")),
+                                      strong(textOutput("n_precision")),
                                       textOutput("warning"),
                                       tags$head(tags$style("#warning{color: red;
                                  
@@ -62,8 +62,11 @@ body <- dashboardBody(
                                  }"
                                       )
                                       ),
+                                      
                                       br(),
-                                      textOutput("n_saved")
+                                      textOutput("n_saved"),
+                                      tags$hr(),
+                                      p("Please note that ", em("per group"), "refers to main groups of the nested RCTs, which are the two groups intervention ", em("A"), " versus ", em("B"), " for the ", em("traditional"), "RCT and the two groups ", em("randomisation"), " versus ", em("stratification"), " for the ", em("precision"), " RCT. See the explanations tab for details.")
                                       
                                 )
                           ),
@@ -163,7 +166,29 @@ body <- dashboardBody(
                                 color = "blue",
                                 
                                 p("The ", strong("nested-precision Randomised Controlled Trial (npRCT)")," is a means to facilitate the move towards precision medicine by combining ", em("traditional"), " intervention testing (e.g., intervention A ", em("versus"), " B) with testing of a ", em("precision"), " algorithm (e.g., randomisation to intervention A or B ", em("versus"), " stratification to intervention A or B)."),
-                                p("The design of the npRCT, which combines the ", em("traditional"), " with what we call ", em("precision"), " RCT, is outlined below based on the publication of a letter to the journal XY. ")
+                                p("The design of the npRCT is outlined below based on the publication of a letter to the journal [INCLUDE JOURNAL NAME HERE]."),
+                                br(),
+                                tags$hr(),
+                                h4(em("Traditional"), " RCT"),
+                                p("Randomisation to"),
+                                tags$ol(
+                                   tags$li("Group 1: Intervention A"), 
+                                   tags$li("Group 2: Intervention B")
+                                ),
+                                
+                                tags$hr(),
+                                h4(em("Precision"), " RCT"),
+                                tags$ol(
+                                   tags$li("Group 1: Randomisation (to)"),
+                                   tags$ol(tags$li("Subgroup 1: Intervention A"), 
+                                           tags$li("Subgroup 2: Intervention B")),
+                                   tags$li("Group 2: Stratification (to)"),
+                                   tags$ol(tags$li("Subgroup 3: Intervention A"), 
+                                           tags$li("Subgroup 4: Intervention B"))
+                                   
+                                )
+                                
+                                
                                 
                           ),