Create allocate.R