diff options
author | Johannes Ranke <johannes.ranke@jrwb.de> | 2015-06-20 17:52:51 +0200 |
---|---|---|
committer | Johannes Ranke <johannes.ranke@jrwb.de> | 2015-06-20 17:52:51 +0200 |
commit | 35ff2c2e7154b5d66a6b33e77d3f4f40282df3c2 (patch) | |
tree | b2edf5df946ae33e84651afb691a4e3321ed1b5d /R | |
parent | 062b9cc1d084e8bb5e552076fc48ade4b3050644 (diff) |
Suppress compiler warning for sometimes unused time variable
Diffstat (limited to 'R')
-rw-r--r-- | R/mkinmod.R | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/R/mkinmod.R b/R/mkinmod.R index a0307003..72c4652a 100644 --- a/R/mkinmod.R +++ b/R/mkinmod.R @@ -273,7 +273,8 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL, quiet = FALSE) model$coefmat <- m
}#}}}
- # Create a function compiled from C code if more than one observed variable and gcc is available #{{{
+ # Create a function compiled from C code if more than one observed {{{
+ # variable and gcc is available
if (length(obs_vars) > 1) {
if (Sys.which("gcc") != "") {
@@ -331,6 +332,7 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL, quiet = FALSE) model$cf <- cfunction(list(func = derivs_sig), derivs_code,
otherdefs = initpar_code,
+ cppargs = "-Wno-unused-variable",
convention = ".C", language = "C")
}
}
|