R/print.R

In methcon5: Identify and Rank CpG DNA Methylation Conservation Along the Human Genome

#' @export
print.methcon <- function(x, ...) {
  cat("# Methcon object\n")
  cat("# .id:", attr(x, ".id"), "\n")
  cat("# .value:", attr(x, ".value"), "\n")

  class(x) <- setdiff(class(x), "methcon")
  print(x)
}