# NOT RUN {
## create an empty trajectory
x <- trajectory("my trajectory")
x
## add some activities by chaining them
x <- x %>%
log_("here I am!") %>%
timeout(5) %>%
log_("leaving!")
x
## join trajectories
x <- join(x, x)
## extract and replace
x[c(3, 4)] <- x[2]
x
# }
Run the code above in your browser using DataLab