Update Q1.R