Create createPersonEpisodePeriod.R