Working on S4 methods
passing unit tests in S4.R