aboutsummaryrefslogtreecommitdiff
path: root/R/mkinsub.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/mkinsub.R')
-rw-r--r--R/mkinsub.R54
1 files changed, 35 insertions, 19 deletions
diff --git a/R/mkinsub.R b/R/mkinsub.R
index 99c3ea20..db91ca00 100644
--- a/R/mkinsub.R
+++ b/R/mkinsub.R
@@ -1,23 +1,39 @@
-# Copyright (C) 2014,2015 Johannes Ranke
-# Portions of this code are copyright (C) 2013 Eurofins Regulatory AG
-# Contact: jranke@uni-bremen.de
-
-# This file is part of the R package mkin
-
-# mkin is free software: you can redistribute it and/or modify it under the
-# terms of the GNU General Public License as published by the Free Software
-# Foundation, either version 3 of the License, or (at your option) any later
-# version.
-
-# This program is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
-# details.
-
-# You should have received a copy of the GNU General Public License along with
-# this program. If not, see <http://www.gnu.org/licenses/>
+#' Function to set up a kinetic submodel for one state variable
+#'
+#' This is a convenience function to set up the lists used as arguments for
+#' \code{\link{mkinmod}}.
+#'
+#' @param submodel Character vector of length one to specify the submodel type.
+#' See \code{\link{mkinmod}} for the list of allowed submodel names.
+#' @param to Vector of the names of the state variable to which a
+#' transformation shall be included in the model.
+#' @param sink Should a pathway to sink be included in the model in addition to
+#' the pathways to other state variables?
+#' @param full_name An optional name to be used e.g. for plotting fits
+#' performed with the model. You can use non-ASCII characters here, but then
+#' your R code will not be portable, \emph{i.e.} may produce unintended plot
+#' results on other operating systems or system configurations.
+#' @return A list for use with \code{\link{mkinmod}}.
+#' @author Johannes Ranke
+#' @examples
+#'
+#' # One parent compound, one metabolite, both single first order.
+#' SFO_SFO <- mkinmod(
+#' parent = list(type = "SFO", to = "m1"),
+#' m1 = list(type = "SFO"))
+#'
+#' # The same model using mkinsub
+#' SFO_SFO.2 <- mkinmod(
+#' parent = mkinsub("SFO", "m1"),
+#' m1 = mkinsub("SFO"))
+#'
+#' # Now supplying full names
+#' SFO_SFO.2 <- mkinmod(
+#' parent = mkinsub("SFO", "m1", full_name = "Test compound"),
+#' m1 = mkinsub("SFO", full_name = "Metabolite M1"))
+#'
+#' @export
mkinsub <- function(submodel, to = NULL, sink = TRUE, full_name = NA)
{
return(list(type = submodel, to = to, sink = sink, full_name = full_name))
}
-# vim: set ts=2 sw=2 expandtab:

Contact - Imprint