Title
as_trajectory( x, by = x$`_function.params`$conversation[1], model = c("AccumulatedTrajectory", "SeperateTrajectory"), ... )
x
[TBD]
by
model
...