Defining a sum method for an S4 class

Question

I\'ve created an S4 class called \'rational\' as follows:

setClass(\'rational\', representation = list(numer = \'integer\', denom = \'integer\'))