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