Changed check_simul.R