Commit bd84fe4d authored by Cedric Midoux's avatar Cedric Midoux
Browse files

MANOVA formula

parent a7db4a9a
...@@ -3,7 +3,7 @@ betaDist <- metaReactive2({ ...@@ -3,7 +3,7 @@ betaDist <- metaReactive2({
metaExpr({ metaExpr({
distance(data, method = ..(input$betaDistance)) distance(data, method = ..(input$betaDistance))
}) })
}) }, varname = "beta.dist")
## MDS ## MDS
output$betaMdsUI <- renderUI({ output$betaMdsUI <- renderUI({
...@@ -193,10 +193,15 @@ output$betaManova <- renderPrint({ ...@@ -193,10 +193,15 @@ output$betaManova <- renderPrint({
validate(need(physeq(), "Requires an abundance dataset")) validate(need(physeq(), "Requires an abundance dataset"))
validate(need(input$betaManovaVar, "Requires at least one covariate")) validate(need(input$betaManovaVar, "Requires at least one covariate"))
vegan::adonis( sample_data <- as(sample_data(physeq()), "data.frame")
manova <- vegan::adonis(
formula = formula(), formula = formula(),
data = as(sample_data(physeq()), "data.frame"), data = sample_data,
perm = 9999) perm = 9999)
manova$call$formula <- formula()
manova
}) })
## Heatmap ## Heatmap
......
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