diff --git a/ui.R b/ui.R
index bb8aa26..4f0980f 100644
--- a/ui.R
+++ b/ui.R
@@ -8,8 +8,15 @@ library("semantic.dashboard")
 
 
 ui <- dashboardPage(
-      dashboardHeader(title = "nested-precision Randomised Controlled Trial (npRCT)
-                      Power Calculation"),
+      
+      
+      dashboardHeader(
+      
+            h1("nested-precision Randomised Controlled Trial (npRCT)", style = "color:black"),
+            
+            color = "blue",
+            disable = FALSE
+      ),
       
       dashboardSidebar(
             side = "left",
@@ -34,15 +41,18 @@ ui <- dashboardPage(
                         
                         h1("npRCT"),
                         p("Below you can find results from power analysis for the", strong("nested-precision Randomised Controlled Trial (npRCT)"),". You can set parameters for power analysis in the box to the right. Results from power analysis will change accordingly below."),
-                        box(title = "Results",
-                        h3("Total Sample Size"),
-                        textOutput("n_total"),
-                        
-                        h3("Point of Stratification"),
-                        textOutput("n_strat"),
-                        
-                        h3("Saved Sample Size"),
-                        textOutput("n_saved")
+                        box(
+                              title = "Results",
+                              color = "grey",
+                              
+                              h3("Total Sample Size"),
+                              textOutput("n_total"),
+                              
+                              h3("Point of Stratification"),
+                              textOutput("n_strat"),
+                              
+                              h3("Saved Sample Size"),
+                              textOutput("n_saved")
                         )
                       ),
                   
@@ -54,7 +64,7 @@ ui <- dashboardPage(
                         
                         
                         # ----------Traditional RCT Parameters------------
-                        h3("Traditional RCT"),
+                        h2("Traditional RCT"),
                         sliderInput("d1",
                                     "Effect Size",
                                     step = 0.01,
@@ -84,7 +94,7 @@ ui <- dashboardPage(
                         
                         
                         # ----------Precision RCT Parameters------------
-                        h3("Precision RCT"),
+                        h2("Precision RCT"),
                         sliderInput("d2",
                                     "Effect Size",
                                     step = 0.01,