Defines functions plotGeneByName

Documented in plotGeneByName

#' plotGeneByName
#' \code{plotGeneByName} plots points on a scatterplot with a 3x3 grid superimposed.
#' The name of a the gene is provided jointly with the matrix and used to select the row to be plotted.
#' @param geneName name of the gene to be plotted.
#' @param mets matrix containing the methylation data of the named gene.
#' @param expresmatrix containing the expression data of the named gene.
#' @param filename NULL, name of the file to store the results as pdf if a name is passed.
#' @keywords plot gene name
#' @export plotGeneByName
#' @examples
#' \dontrun{
#' plotGeneByName (gene="HOOK1", mets=falseLMet, expres=falseLExpr, fileName=NULL)
plotGeneByName <- function(geneName, mets, expres, fileName, text4Title=NULL,
                           plotGrid=TRUE, figs=c(2,2)){
  if (!is.null(fileName))
  if (!is.null(text4Title)){
    text4Title <- paste(geneName, text4Title, sep=", ")
    text4Title<- geneName
  if (geneName %in% rownames(expres)){
    genePos <- which(rownames(expres)==geneName)
    genePos <- NULL
    xVec<- as.numeric(mets[genePos,])
    yVec<- as.numeric(expres[genePos,])
    plotGeneSel(xMet=xVec, yExp=yVec, titleText=text4Title,
               x1=1/3, x2=2/3, plotGrid=plotGrid)
  if (!is.null(fileName))
bertamiro/lpattern documentation built on July 19, 2019, 12:56 p.m.