diff --git a/panels/mds-server.R b/panels/mds-server.R
index 20d6546c9888a2895f2d0351c1ed5c10b1fa6c92..4a7255901e3b641d170c37c6fee5c5232a05ae37 100644
--- a/panels/mds-server.R
+++ b/panels/mds-server.R
@@ -29,7 +29,13 @@ output$mdsUI <- renderUI({
       "mdsMethod",
       label = "Method : ",
       selected = "MDS",
-      choices = list("DCA", "CCA", "RDA", "CAP", "DPCoA", "NMDS", "MDS", "PCoA")
+      choices = list("DCA (Detrended Correspondence Analysis)" = "DCA", 
+                     "CCA (Constrained Correspondence Analysis)" = "CCA", 
+                     "RDA (Redundancy Analysis)" = "RDA", 
+                     "CAP (Constrained Analysis of Principal Coordinates)" = "CAP", 
+                     "DPCoA (Double Principle Coordinate Analysis)" = "DPCoA", 
+                     "NMDS (Non-metric MultiDimenstional Scaling)" = "NMDS", 
+                     "MDS / PCoA (Principal Coordinate Analysis)" = "MDS")
     ),
     textInput("mdsTitle",
               label = "Title : ",
diff --git a/panels/pca-server.R b/panels/pca-server.R
index 10b539a3836783bb2414ef1bf6825ca8db10c3fc..4fa79f1b5d2f922e14abe658177e74d512b8af9c 100644
--- a/panels/pca-server.R
+++ b/panels/pca-server.R
@@ -61,7 +61,7 @@ output$pcaUI <- renderUI({
     ),
     sliderInput(
       "pcaSelect",
-      label = "Select top contrib variables : ",
+      label = "Represent top contrib variables : ",
       min = 1,
       max = ntaxa(physeq()),
       value = 50,