Create waterNeedIncrement.R

Initial addition of the R script