library(microbenchmark)
library(wakefield)
library(visdat)
mb1 <-
microbenchmark(vis_dat(airquality),
table_heat(airquality))
boxplot(mb1)
summary(mb1)
expr | min | lq | mean | median | uq | max | neval |
---|---|---|---|---|---|---|---|
vis_dat(airquality) | 7.56 | 8.44 | 13.72 | 9.13 | 10.96 | 377.38 | 100 |
table_heat(airquality) | 308.48 | 378.64 | 407.13 | 388.38 | 412.66 | 680.60 | 100 |
So we can see here that vis_dat
is almost 30 times faster than table_heat