diff options
Diffstat (limited to 'R/kinobject.R')
| -rw-r--r-- | R/kinobject.R | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/R/kinobject.R b/R/kinobject.R index 2ecc962..5fc715e 100644 --- a/R/kinobject.R +++ b/R/kinobject.R @@ -19,13 +19,11 @@ # this program. If not, see <http://www.gnu.org/licenses/>
kinobject <- function(parent, type, system,
- layers = NA, sampling_times = NA)
+ layers = NA, sampling_times = NA, replicates = 1)
{
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
- }
+ kinobject$data <- data.frame(t = rep(sampling_times, each = replicates), parent = NA)
return(kinobject)
}
|