Update Q5.R