Small formatting improvements

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@59 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

1 files changed, 8 insertions, 5 deletions

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