From c04d0bb0e795b67b6958150e8524c5265587f618 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 12 Nov 2014 16:59:48 +0100 Subject: IORE working for parent and metabolites, introduce mkinsub --- R/mkinsub.R | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 R/mkinsub.R (limited to 'R/mkinsub.R') diff --git a/R/mkinsub.R b/R/mkinsub.R new file mode 100644 index 00000000..f92af54b --- /dev/null +++ b/R/mkinsub.R @@ -0,0 +1,23 @@ +# Copyright (C) 2014 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 +mkinsub <- function(submodel, to = NULL, sink = TRUE) +{ + return(list(type = submodel, to = to, sink = sink)) +} +# vim: set ts=2 sw=2 expandtab: -- cgit v1.2.1