Update Figure1.R