From d10f5ee98dc5913e7ac581f06d1d9297d7ae7582 Mon Sep 17 00:00:00 2001 From: jranke Date: Thu, 13 Dec 2012 21:18:13 +0000 Subject: Small formatting improvements git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@59 edb9625f-4e0d-4859-8d74-9fd3b1da38cb --- R/mkinmod.R | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'R') diff --git a/R/mkinmod.R b/R/mkinmod.R index 1a1c55c..5d8271a 100644 --- a/R/mkinmod.R +++ b/R/mkinmod.R @@ -25,15 +25,16 @@ mkinmod <- function(..., use_of_ff = "min") if (!use_of_ff %in% c("min", "max")) stop("The use of formation fractions 'use_of_ff' can only be 'min' or 'max'") - # The returned model will be a list of character vectors, containing#{{{ + # The returned model will be a list of character vectors, containing {{{ # differential equations, parameter names and a mapping from model variables # to observed variables. If possible, a matrix representation of the # differential equations is included parms <- vector() diffs <- vector() - map <- list()#}}} + map <- list() + # }}} - # Give a warning when a model with time dependent degradation uses formation#{{{ + # Give a warning when a model with time dependent degradation uses formation {{{ # fractions if(spec[[1]]$type %in% c("FOMC", "DFOP", "HS")) { mat = FALSE @@ -41,11 +42,13 @@ mkinmod <- function(..., use_of_ff = "min") message <- paste( "Only constant formation fractions over time are implemented.", "Depending on the reason for the time dependence of degradation", - "this may be unrealistic", + "this may be unrealistic. You may want to consider using the", + "SFORB model", sep="\n") warning(message) } else message <- "ok" - } else mat = TRUE#}}} + } else mat = TRUE + #}}} # Establish list of differential equations as well as map from observed {{{ # compartments to differential equations -- cgit v1.2.1