simulation.R.