From 651b27080fd20c8079f2f2744b93b7d866cc8b75 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 4 Dec 2013 05:15:38 +0100
Subject: Remove mkinmod warning based on a misconception

---
 R/mkinmod.R | 15 ++-------------
 1 file changed, 2 insertions(+), 13 deletions(-)

(limited to 'R')

diff --git a/R/mkinmod.R b/R/mkinmod.R
index c743777..2bc6ae3 100644
--- a/R/mkinmod.R
+++ b/R/mkinmod.R
@@ -1,6 +1,4 @@
-# $Id$
-
-# Copyright (C) 2010-2012 Johannes Ranke {{{
+# Copyright (C) 2010-2013 Johannes Ranke {{{
 # Contact: jranke@uni-bremen.de
 
 # This file is part of the R package mkin
@@ -46,19 +44,10 @@ mkinmod <- function(..., use_of_ff = "min", speclist = NULL)
   # fractions
   if(spec[[1]]$type %in% c("FOMC", "DFOP", "HS")) {
     mat = FALSE 
-    if(!is.null(spec[[1]]$to)) {
-      message <- paste(
-        "Only constant formation fractions over time are implemented.",
-        "Depending on the reason for the time dependence of degradation",
-        "this may be unrealistic. You may want to consider using the",
-        "SFORB model",
-        sep="\n")
-      warning(message)
-    } else message <- "ok"
   } else mat = TRUE
   #}}}
 
-  # Establish list of differential equations as well as map from observed {{{
+  # Establish a list of differential equations as well as a map from observed {{{
   # compartments to differential equations
   for (varname in obs_vars)
   {
-- 
cgit v1.2.1