This evaluation is taken from the example section of mkinfit. When using an mkin version equal to or greater than 0.9-36 and a C compiler (gcc) is available, you will see a message that the model is being compiled from autogenerated C code when defining a model using mkinmod. The mkinmod()
function checks for presence of the gcc compiler using
Sys.which("gcc")
## gcc
## "/usr/bin/gcc"
First, we build a simple degradation model for a parent compound with one metabolite.
## Successfully compiled differential equation model from auto-generated C code.
We can compare the performance of the Eigenvalue based solution against the compiled version and the R implementation of the differential equations using the microbenchmark package.
library("microbenchmark")
library("ggplot2")
mb.1 <- microbenchmark(
"deSolve, not compiled" = mkinfit(SFO_SFO, FOCUS_2006_D,
solution_type = "deSolve",
use_compiled = FALSE, quiet = TRUE),
"Eigenvalue based" = mkinfit(SFO_SFO, FOCUS_2006_D,
solution_type = "eigen", quiet = TRUE),
"deSolve, compiled" = mkinfit(SFO_SFO, FOCUS_2006_D,
solution_type = "deSolve", quiet = TRUE),
times = 3, control = list(warmup = 0))
## Warning in microbenchmark(`deSolve, not compiled` = mkinfit(SFO_SFO,
## FOCUS_2006_D, : Could not measure overhead. Your clock might lack
## precision.
smb.1 <- summary(mb.1)
print(mb.1)
## Unit: milliseconds
## expr min lq mean median uq
## deSolve, not compiled 6298.7342 6308.6792 6343.9668 6318.6243 6366.5831
## Eigenvalue based 871.7379 880.7757 903.5267 889.8135 919.4211
## deSolve, compiled 724.9025 730.6729 732.9837 736.4432 737.0243
## max neval cld
## 6414.5420 3 c
## 949.0287 3 b
## 737.6054 3 a
autoplot(mb.1)
We see that using the compiled model is by a factor of 8.6 faster than using the R version with the default ode solver, and it is even faster than the Eigenvalue based solution implemented in R which does not need iterative solution of the ODEs:
rownames(smb.1) <- smb.1$expr
smb.1["median"]/smb.1["deSolve, compiled", "median"]
## median
## deSolve, not compiled 8.579920
## Eigenvalue based 1.208258
## deSolve, compiled 1.000000
This evaluation is also taken from the example section of mkinfit.
## Successfully compiled differential equation model from auto-generated C code.
mb.2 <- microbenchmark(
"deSolve, not compiled" = mkinfit(FOMC_SFO, FOCUS_2006_D,
use_compiled = FALSE, quiet = TRUE),
"deSolve, compiled" = mkinfit(FOMC_SFO, FOCUS_2006_D, quiet = TRUE),
times = 3, control = list(warmup = 0))
## Warning in microbenchmark(`deSolve, not compiled` = mkinfit(FOMC_SFO,
## FOCUS_2006_D, : Could not measure overhead. Your clock might lack
## precision.
smb.2 <- summary(mb.2)
print(mb.2)
## Unit: seconds
## expr min lq mean median uq
## deSolve, not compiled 13.265212 13.330161 13.412053 13.395109 13.485473
## deSolve, compiled 1.322466 1.326851 1.364827 1.331236 1.386007
## max neval cld
## 13.575837 3 b
## 1.440779 3 a
smb.2["median"]/smb.2["deSolve, compiled", "median"]
## median
## 1 NA
## 2 NA
autoplot(mb.2)
Here we get a performance benefit of a factor of 10.1 using the version of the differential equation model compiled from C code!
This vignette was built with mkin 0.9.44.9000 on
## R version 3.3.1 (2016-06-21)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Debian GNU/Linux 8 (jessie)
## CPU model: Intel(R) Core(TM) i7-4710MQ CPU @ 2.50GHz