Update main.R