L6_solution.R