R/print.checkSex.R

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

#' @export
print.checkSex <- function(x, ...) {
    cat("Object of class checkSex \n")
    cat("---------------------------- \n")
    cat("Number of processed samples:", length(x$class), "\n")
    cat("Number of excluded samples: ", length(x$par$omitted), "\n")
    cat("Number of female classified samples: ", sum(x$class == "FEMALE", na.rm = TRUE), "\n")
    cat("Number of male classified samples: ", sum(x$class == "MALE", na.rm = TRUE), "\n")
    cat("\n")
}