This is a project to make a timeline in R