Update assign3.R