https://www.classicoder.com/2021/09/r-basics-11-coding-conditional.html