Commit 1a13d764 authored by Midoux Cedric's avatar Midoux Cedric
Browse files

Merge branch 'master' of gitlab-ssh.irstea.fr:cedric.midoux/easy16S

Conflicts:
	perf.R
No related merge requests found
Showing with 10 additions and 3 deletions
+10 -3
library(microbenchmark) library(microbenchmark)
mb <- microbenchmark( mb <- microbenchmark::microbenchmark(
"clear" = {
rm(list = ls())
lapply(paste('package:', names(sessionInfo()$otherPkgs), sep=""), detach, character.only=TRUE, unload=TRUE)
},
"load packages" = { "load packages" = {
library(shinydashboard) library(shinydashboard)
library(glue) library(glue)
...@@ -68,7 +72,10 @@ mb <- microbenchmark( ...@@ -68,7 +72,10 @@ mb <- microbenchmark(
p <- plot_clust(physeq = data, dist = "unifrac", method = "ward.D2", color = "EnvType") p <- plot_clust(physeq = data, dist = "unifrac", method = "ward.D2", color = "EnvType")
plot(p) plot(p)
}, },
times = 100, unit = 's', order = 'inorder', warmup = 0) times = 100, unit = "s", control = list(order="inorder"))
mb mb
autoplot(mb) save(mb, file = "benchmark.RData")
mb_plot <- microbenchmark::autoplot.microbenchmark(mb)
ggsave("benchmark.png", plot = mb_plot)
Supports Markdown
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