1setClass("C", representation(x="numeric")) 2 3setGeneric("run", function(object) 1) 4 5setMethod("run", c("C"), definition = function (object) { 6 object@x <- 4 7 3 + object@x 8}) 9 10setGeneric("run2", function(object) 1) 11setMethod("run2", c("C"), function (object) { 12 object@x <- 4 13 3 + object@x 14}) 15 16setClass ("D", contains = "C") 17setGeneric("run3", function(i, j) 1) 18setMethod("run3", signature("numeric", "numeric"), 19 function (i, j) { i + j }) 20 21c <- new ("C", x = 2) 22print(run(c)) 23print(run('a')) 24