Create trajectory.R