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

1 files changed, 14 insertions, 0 deletions

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)

+}