Update Lab3.R