Create figure_5_and_S3.R