Fixes and improvements of kinobject and kinobjects functions

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/kinfit@55 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

1 files changed, 2 insertions, 5 deletions

diff --git a/R/kinobjects.R b/R/kinobjects.R
index 33abe61..c191c70 100644
--- a/R/kinobjects.R
+++ b/R/kinobjects.R
@@ -19,16 +19,13 @@
 # this program. If not, see <http://www.gnu.org/licenses/>

 

 kinobjects<- function(parent, type, systems,

-        layers = NA, sampling_times = NA)

+        layers = NA, sampling_times = NA, replicates = 1)

 {

         kinobjects <- list()

         for (system in systems) {

             kinobjects[[system]] <- kinobject(parent = parent, 

-                    type = type, system = system)

+                    type = type, system = system, sampling_times = sampling_times, replicates = replicates)

             if (!is.na(layers[1])) kinobjects[[system]]$layers = layers

-            if (!is.na(sampling_times[1])) {

-                    kinobjects[[system]]$sampling_times = layers

-            }

         }

         return(kinobjects)

 }