Update simr.R