From 231bc957b66cd45b6d32e431728b0b0bb5d65d57 Mon Sep 17 00:00:00 2001 From: Midoux Cedric <cedric.midoux@irstea.fr> Date: Fri, 17 Apr 2020 16:50:06 +0200 Subject: [PATCH] MDS methods --- panels/mds-server.R | 8 +++++++- panels/pca-server.R | 2 +- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/panels/mds-server.R b/panels/mds-server.R index 20d6546..4a72559 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 10b539a..4fa79f1 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, -- GitLab