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

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

Conflicts:
	perf.R
parents f5d0ad73 b0f10e89
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" = {
library(shinydashboard)
library(glue)
......@@ -68,7 +72,10 @@ mb <- microbenchmark(
p <- plot_clust(physeq = data, dist = "unifrac", method = "ward.D2", color = "EnvType")
plot(p)
},
times = 100, unit = 's', order = 'inorder', warmup = 0)
times = 100, unit = "s", control = list(order="inorder"))
mb
autoplot(mb)
save(mb, file = "benchmark.RData")
mb_plot <- microbenchmark::autoplot.microbenchmark(mb)
ggsave("benchmark.png", plot = mb_plot)
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