R/mylog10.R

In mssm-msf-2019/BiostatsALL:

#' A function that returns the base 10 logarithm of the components of a numeric vector
#' @description This function given a numeric vector calculates the base 10 logarithm of the components
#' @param x numeric vector
 
mylog10<-function(x){y<-x; y[(x==0)]<-min(x[(x!=0)],na.rm=TRUE)/5; return(log10(y))}