Create Consolidate.R