corrected simulation 1

to have a mediator that is only random error
updated function to restore par$mfrow