### Name: plotExpressionGraph
### Title: A function to plot a graph colored by expression data
### Aliases: plotExpressionGraph getPlotExpressionColors IMCAEntrezLink
###   defMapFun
### Keywords: utilities graphs hplot

### ** Examples

   if ((require("Rgraphviz")) && (require("hgu95av2.db")) &&
        (require("fibroEset")) && (interactive())) {     
            data(integrinMediatedCellAdhesion)
            data(IMCAEntrezLink)
            data(fibroEset)
            attrs=getDefaultAttrs()
            attrs$graph$rankdir <- "LR"
            plotExpressionGraph(IMCAGraph, IMCAEntrezLink,
                                exprs(fibroEset)[,1],
                                hgu95av2ENTREZID, attrs=attrs)
   }