https://www.r-bloggers.com/how-to-write-the-first-for-loop-in-r/