Konversi S4 ke S3 di R

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")
  }
)
Laughing Lobster