Sample code while I was learning R