1 files changed, 11 insertions, 0 deletions
diff --git a/R/kinobject.R b/R/kinobject.R
new file mode 100644
index 0000000..de6f6af
--- /dev/null
+++ b/R/kinobject.R
@@ -0,0 +1,11 @@
+kinobject <- function(parent, type, system, 
+        layers = NA, sampling_times = NA)
+{
+        kinobject <- list(parent = parent, 
+                type = type, system = system)
+        if (!is.na(layers[1])) kinobject$layers = layers
+        if (!is.na(sampling_times[1])) {
+                kinobject$sampling_times = layers
+        }
+        return(kinobject)
+}