setMethod("pmAllele", signature(object="SnpFeatureSet"),
function(object) pmAllele(get(annotation(object))))
setMethod("pmFragmentLength", "SnpFeatureSet",
function(object, enzyme, type=c('snp', 'cn')){
pmFragmentLength(getPD(object), enzyme, type)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.