From 12934520d7ec3218ce1505787b6066334a24a562 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Tue, 30 Mar 2010 19:49:44 +0000
Subject: Initial import of the kinfit package developed from 2008-07 to
 2010-03 at Harlan Laboratories Ltd (former RCC Ltd).

Supports fitting of parent data with the usual FOCUS kinetic models.



git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/kinfit@2 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 R/kinobjects.R | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 R/kinobjects.R

(limited to 'R/kinobjects.R')

diff --git a/R/kinobjects.R b/R/kinobjects.R
new file mode 100644
index 0000000..a767cea
--- /dev/null
+++ b/R/kinobjects.R
@@ -0,0 +1,14 @@
+kinobjects<- function(parent, type, systems,
+        layers = NA, sampling_times = NA)
+{
+        kinobjects <- list()
+        for (system in systems) {
+            kinobjects[[system]] <- kinobject(parent = parent, 
+                    type = type, system = system)
+            if (!is.na(layers[1])) kinobjects[[system]]$layers = layers
+            if (!is.na(sampling_times[1])) {
+                    kinobjects[[system]]$sampling_times = layers
+            }
+        }
+        return(kinobjects)
+}
-- 
cgit v1.2.1