diff --git a/tools/ampvis2/alpha_diversity.xml b/tools/ampvis2/alpha_diversity.xml index 6d4d07556bb..4bf978b156c 100644 --- a/tools/ampvis2/alpha_diversity.xml +++ b/tools/ampvis2/alpha_diversity.xml @@ -13,12 +13,12 @@ library(ampvis2, quietly = TRUE) d <- readRDS("$data") - a <- amp_alphadiv(d, + table <- amp_alphadiv(d, measure = c($m), richness = $richness @RAREFY_TOKEN@, ) - b <- amp_alphadiv(d, + plot <- amp_alphadiv(d, measure = c($m), richness = $richness @RAREFY_TOKEN@, @@ -26,9 +26,9 @@ plot_group_by = "$group_by", plot_scatter = $plot_scatter ) - write.table(a, file='$alphadiv', quote=FALSE, sep='\t', row.names=FALSE) + write.table(table, file='$alphadiv', quote=FALSE, sep='\t', row.names=FALSE) ggsave("$alphadiv_plot", - plot = b, + plot = plot, device = "$output_options.out_format" #if str($output_options.plot_width) != '' , width = $output_options.plot_width @@ -55,7 +55,7 @@ - + @@ -71,7 +71,11 @@ - + + + + + @@ -90,8 +94,11 @@ - - + + + + +