Working on S4 classes