setConstructorS3("CbsSegmentationDataSet", function(...) {
extend(SegmentationDataSet(...), "CbsSegmentationDataSet")
})
setMethodS3("byPath", "CbsSegmentationDataSet", function(static, ..., pattern=",chr[0-9]+,.*[.]xdr$") {
NextMethod("byPath", pattern=pattern)
}, static=TRUE, protected=TRUE)
setMethodS3("byName", "CbsSegmentationDataSet", function(static, ..., chipType, paths="cbsData/") {
# Argument 'chipType':
chipType <- Arguments$getCharacter(chipType)
NextMethod("byName", subdirs=chipType, paths=paths)
}, static=TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.