R/config.R

In Kaiyu-W/DNBr: Compute the Dynamic Network Biomarkers (DNB) model

#' to ignore the warning and error of correlation computation
#'
#' @param x x
#' @param y y
#' @param ... other parameters of function cor
#'
#'
mycor <- function(x, y = NULL, ...) {
    if (is(x, "dgCMatrix"))
        x <- as.matrix(x)
    if (is(y, "dgCMatrix"))
        y <- as.matrix(y)
    
    obj <- suppressWarnings(stats::cor(x = x, y = y, ...))
    obj[is.na(obj)] <- 1
    obj
}

#' Critical index
#'
#' @param n sample size
#' @param Sd standard deviation
#' @param pcc_in pcc inside the group
#' @param pcc_out pcc outside the group
#'
CI <- function(n, Sd, pcc_in, pcc_out) {
    ifelse(
        test = pcc_out == 0,
        yes = 0,
        no = sqrt(n) * Sd * pcc_in / pcc_out
    ) 
    # the original formula comes when n = 1
}

#' to print the process information
#'
#' @param ... parameters of function cat
#' @param quiet not execute function cat
#'
#'
mycat <- function(..., quiet = FALSE) {
    if (!quiet) cat(...)
}