simDat4 function

Simulate data for Chapter 4: Model of the mean