Modify s3 methods

[dirmeier]

Use

    method.matrix <- function(...)
    method.numeric <- function(...)

instead of checking the class in the method