Lab3_B1_solution.R