R/colSummarize.R

Defines functions colSummarizeMedianpolish colSummarizeMedianpolishLog colSummarizeBiweight colSummarizeBiweightLog colSummarizeMedian colSummarizeMedianLog colSummarizeLogMedian colSummarizeAvg colSummarizeLogAvg colSummarizeAvgLog

Documented in colSummarizeAvg colSummarizeAvgLog colSummarizeBiweight colSummarizeBiweightLog colSummarizeLogAvg colSummarizeLogMedian colSummarizeMedian colSummarizeMedianLog colSummarizeMedianpolish colSummarizeMedianpolishLog

##
## file: colSummarize.R
##
## Author: B. M. Bolstad <[email protected]>
##
## History
## Sept 15, 2007 - Initial verison
##




colSummarizeAvgLog <- function(y){
  if (!is.matrix(y))
    stop("argument should be matrix")

  if (!is.double(y) & is.numeric(y))
    y <- matrix(as.double(y),dim(y)[1],dim(y)[2])
  else if (!is.numeric(y))
    stop("argument should be numeric matrix")
  
  .Call("R_colSummarize_avg_log",y,PACKAGE="preprocessCore")
}


colSummarizeLogAvg <- function(y){
  if (!is.matrix(y))
    stop("argument should be matrix")

  if (!is.double(y) & is.numeric(y))
    y <- matrix(as.double(y),dim(y)[1],dim(y)[2])
  else if (!is.numeric(y))
    stop("argument should be numeric matrix")
  
  .Call("R_colSummarize_log_avg",y,PACKAGE="preprocessCore")
}


colSummarizeAvg <- function(y){
  if (!is.matrix(y))
    stop("argument should be matrix")

  if (!is.double(y) & is.numeric(y))
    y <- matrix(as.double(y),dim(y)[1],dim(y)[2])
  else if (!is.numeric(y))
    stop("argument should be numeric matrix")
  
  .Call("R_colSummarize_avg",y,PACKAGE="preprocessCore")
}


colSummarizeLogMedian <- function(y){
  if (!is.matrix(y))
    stop("argument should be matrix")

  if (!is.double(y) & is.numeric(y))
    y <- matrix(as.double(y),dim(y)[1],dim(y)[2])
  else if (!is.numeric(y))
    stop("argument should be numeric matrix")
  
  .Call("R_colSummarize_log_median",y,PACKAGE="preprocessCore")
}




colSummarizeMedianLog <- function(y){
  if (!is.matrix(y))
    stop("argument should be matrix")

  if (!is.double(y) & is.numeric(y))
    y <- matrix(as.double(y),dim(y)[1],dim(y)[2])
  else if (!is.numeric(y))
    stop("argument should be numeric matrix")
  
  .Call("R_colSummarize_median_log",y,PACKAGE="preprocessCore")
}


colSummarizeMedian <- function(y){
  if (!is.matrix(y))
    stop("argument should be matrix")

  if (!is.double(y) & is.numeric(y))
    y <- matrix(as.double(y),dim(y)[1],dim(y)[2])
  else if (!is.numeric(y))
    stop("argument should be numeric matrix")
  
  .Call("R_colSummarize_median",y,PACKAGE="preprocessCore")
}



colSummarizeBiweightLog <- function(y){
  if (!is.matrix(y))
    stop("argument should be matrix")

  if (!is.double(y) & is.numeric(y))
    y <- matrix(as.double(y),dim(y)[1],dim(y)[2])
  else if (!is.numeric(y))
    stop("argument should be numeric matrix")
  
  .Call("R_colSummarize_biweight_log",y,PACKAGE="preprocessCore")
}

colSummarizeBiweight <- function(y){
  if (!is.matrix(y))
    stop("argument should be matrix")

  if (!is.double(y) & is.numeric(y))
    y <- matrix(as.double(y),dim(y)[1],dim(y)[2])
  else if (!is.numeric(y))
    stop("argument should be numeric matrix")
  
  .Call("R_colSummarize_biweight",y,PACKAGE="preprocessCore")
}



colSummarizeMedianpolishLog <- function(y){
  if (!is.matrix(y))
    stop("argument should be matrix")

  if (!is.double(y) & is.numeric(y))
    y <- matrix(as.double(y),dim(y)[1],dim(y)[2])
  else if (!is.numeric(y))
    stop("argument should be numeric matrix")
  
  .Call("R_colSummarize_medianpolish_log",y,PACKAGE="preprocessCore")
}


colSummarizeMedianpolish <- function(y){
  if (!is.matrix(y))
    stop("argument should be matrix")

  if (!is.double(y) & is.numeric(y))
    y <- matrix(as.double(y),dim(y)[1],dim(y)[2])
  else if (!is.numeric(y))
    stop("argument should be numeric matrix")
  
  .Call("R_colSummarize_medianpolish",y,PACKAGE="preprocessCore")
}

Try the preprocessCore package in your browser

Any scripts or data that you put into this service are public.

preprocessCore documentation built on Nov. 1, 2018, 2:25 a.m.