Change clone method to S4 method