R/discovery.log.R

In cellOrigins: Finds RNASeq Source Tissues Using In Situ Hybridisation Data

Defines functions discovery.log

Documented in discovery.log

discovery.log <-
function(seq, saturate=60, bias=0.01){
  seq <- log(seq, base=60)
  seq[seq>0.99] <- 0.99
  seq[seq<0.01] <- 0.01
  corr <- 0.99/(0.99-bias)
  seq <- seq/corr+bias
  return (seq)
}

Try the cellOrigins package in your browser