add time to Main.R