R Programming Ass 2 init