Update forwardsim3.R