Update consolidating1.R