Better batchEcon.R