From f3f415520c89f9d8526bf6fadc862ebd44be220d Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 17 Nov 2016 18:14:32 +0100 Subject: Remove trailing whitespace, clean headers Also ignore test.R in the top level directory, as it is not meant to be public --- R/transform_odeparms.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'R/transform_odeparms.R') diff --git a/R/transform_odeparms.R b/R/transform_odeparms.R index 0946ff14..c871c52a 100644 --- a/R/transform_odeparms.R +++ b/R/transform_odeparms.R @@ -17,10 +17,10 @@ # this program. If not, see transform_odeparms <- function(parms, mkinmod, - transform_rates = TRUE, - transform_fractions = TRUE) + transform_rates = TRUE, + transform_fractions = TRUE) { - # We need the model specification for the names of the model + # We need the model specification for the names of the model # variables and the information on the sink spec = mkinmod$spec @@ -79,7 +79,7 @@ transform_odeparms <- function(parms, mkinmod, } else { transparms[pname] <- parms[pname] } - } + } } # DFOP parameter g is treated as a fraction @@ -99,7 +99,7 @@ backtransform_odeparms <- function(transparms, mkinmod, transform_rates = TRUE, transform_fractions = TRUE) { - # We need the model specification for the names of the model + # We need the model specification for the names of the model # variables and the information on the sink spec = mkinmod$spec -- cgit v1.2.1