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

MANOVA formula

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