setGeneric("as.myS3class", function(object) { standardGeneric("as.myS3class") }) setMethod("as.myS3class", signature(object = "myS4class"), function(object) { structure(list(a = object@a, b = object@b), class = "myS3class") } )