R/Mean.in.log2space.R

In sistia01/DWLS: Gene Expression Deconvolution Using Dampened Weighted Least Squares

#' @title Mean.in.log2space
#'
#' @description Applies the log2 to the mean of ((2^x - pseudo count) + pseudo
#' count).
#'
#' @param x Data
#' @param pseudo.count A pseudocount value
#'
#' @return Values
#'
#' @examples
#' \donttest{
#' #dataBulk
#' #url <- "https://github.com/sistia01/DWLS/raw/main/inst/extdata/dataBulk.RData"
#' #dest <- "data/dataBulk.RData"
#' #download.file(url, dest)
#' #load("data/dataBulk.RData")
#' load(system.file("extdata", "dataBulk.RData", package = "DWLS"))
#'
#' Mean.in.log2space(dataBulk, 0.1)
#'}
#'
#' @export Mean.in.log2space
#'
#' @importFrom dplyr "%>%"

Mean.in.log2space=function(x,pseudo.count) {
  return(log2(mean(2^(x)-pseudo.count)+pseudo.count))
}