setConstructorS3("SnpData", function(data=NULL, ...) {
data <- unclass(data)
extend(BasicObject(data), "SnpData")
})
setMethodS3("callGenotypes", "SnpData", function(this, ...) {
obj <- asTotalFracBSnpData(this)
res <- callGenotypes(obj, ...)
asThis(this, res)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.