Update Code1.r