R/setGpar.R

In plgem: Detect differential expression in microarray and proteomics datasets with the Power Law Global Error Model (PLGEM)

setGpar <- function(minLnM=NULL, maxLnM=NULL, minLnSD=NULL, maxLnSD=NULL,
  minRes=NULL, maxRes=NULL) {
  
  if(!missing(minLnM) && !is(minLnM, "numeric") && !is(minLnM, "integer")) {
    stop("Argument 'minLnM' is not of class 'numeric' or 'integer'.")
  }
  if(!missing(maxLnM) && !is(maxLnM, "numeric") && !is(maxLnM, "integer")) {
    stop("Argument 'maxLnM' is not of class 'numeric' or 'integer'.")
  }

  list(minLnM=minLnM, maxLnM=maxLnM, minLnSD=minLnSD, maxLnSD=maxLnSD,
    minRes=minRes, maxRes=maxRes)
}