Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Midoux Cedric
easy16S
Commits
bd84fe4d
Commit
bd84fe4d
authored
Jan 06, 2021
by
Midoux Cedric
Browse files
MANOVA formula
parent
a7db4a9a
Changes
1
Hide whitespace changes
Inline
Side-by-side
panels/richnessB-server.R
View file @
bd84fe4d
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment