update q3.R