Create timelineR.R