Simple code. Created in the process of learning/refreshing my knowledge of R.