R/class.R

In Mamie/scDNAmClock: Epigenetic clock on scMethyl-seq data

#' 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)
           }
         })