Test code for learning R language