Lab3_B2_solution.R