Update simulation.R

coef0=0