R/print.MADloyBdev.R

In isglobal-brge/MADloy: Package to detect mosaic LOY from SNP array data

#' @export
print.MADloyBdev <- function(x, ...) {
    cat("Object of class MADloyBdev \n")
    cat("---------------------------- \n")
    class <- as.factor(x$calling$MADloy)
    names(class) <- tools::file_path_sans_ext(x$par$files)
    print(table(class))
    cat("\n")
}