Create demInterpolation.R