Commit 231bc957 authored by Midoux Cedric's avatar Midoux Cedric

MDS methods

parent 12ba9644
...@@ -29,7 +29,13 @@ output$mdsUI <- renderUI({ ...@@ -29,7 +29,13 @@ output$mdsUI <- renderUI({
"mdsMethod", "mdsMethod",
label = "Method : ", label = "Method : ",
selected = "MDS", 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", textInput("mdsTitle",
label = "Title : ", label = "Title : ",
......
...@@ -61,7 +61,7 @@ output$pcaUI <- renderUI({ ...@@ -61,7 +61,7 @@ output$pcaUI <- renderUI({
), ),
sliderInput( sliderInput(
"pcaSelect", "pcaSelect",
label = "Select top contrib variables : ", label = "Represent top contrib variables : ",
min = 1, min = 1,
max = ntaxa(physeq()), max = ntaxa(physeq()),
value = 50, value = 50,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment