Create noiseCreate.R