Update simulation.R

coefficients