Create centralize.R