summaryrefslogblamecommitdiff
path: root/R/kinobject.R
blob: de6f6af7caca6c30ea4bdb36694d6e7cbc9bc941 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
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)
}

Contact - Imprint