#' An S4 class to store methylation call object
#'
#' @slot data A DataFrame object containing 6 columns (chr, position, strand,
#' met_reads, unmet_reads)
setClass("methCall",
representation(data = "DataFrame"),
validity = function(object) {
if (sum(c("chr", "position", "strand", "met_reads", "coverage") %in% colnames(object@data)) < 4) {
stop("The columns must have chr, position, strand, met_reads, coverage.")
} else {
return(TRUE)
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.