R Trajectory Function