Create loopWhile.R