https://videosashka.com/watch/GqbJcVZxdiE/tutorial-while-loops-in-r