setMethod("chromosome", signature(object="SummarizedExperiment"),
function(object,...) as.character(seqnames(object)))
setMethod("isSnp", signature(object="SummarizedExperiment"),
function(object,...) values(rowData(object))$isSnp)
setMethod("lrr", signature(object="SummarizedExperiment"),
function(object){
assays(object)[[1]]
})
setMethod("baf", signature(object="SummarizedExperiment"),
function(object){
assays(object)[[2]]
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.