Update programming1.R