setConstructorS3("PairedPSCBSFile", function(...) {
extend(GenericDataFile(...), "PairedPSCBSFile")
})
setMethodS3("loadFit", "PairedPSCBSFile", function(this, ...) {
pathname <- getPathname(this)
fit <- loadObject(pathname)
# Sanity check
fit <- Arguments$getInstanceOf(fit, "PairedPSCBS")
fit
}, protected=TRUE)
setMethodS3("loadObject", "PairedPSCBSFile", function(this, ...) {
loadFit(this, ...)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.