Create modelGradientCheck.R