Update a1.R