diagplot.venn(pmat, fcmat = NULL, pcut = 0.05,
fcut = 0.5, direction = c("dereg", "up", "down"),
nam = as.character(round(1000 * runif(1))),
output = "x11", path = NULL, alt.names = NULL, ...)
"statistics"=c("deseq","edger","nbpseq")
then
colnames(pmat) <-
c("deseq","edger","nbpseq")
.pmat
).fcmat
is supplied, an absolute
fold change cutoff to be applied to fcmat
to
determine the differentially expressed genes for each
algorithm.0.05
.fcmat
is supplied, a keyword
to denote which genes to draw in the Venn diagrams with
respect to their direction of regulation. It can be one
of "dereg"
for the total of regulated genes, where
abs(fcmat[,n])>=fcut
(default), "up"
for
the up-regulated genes where fcmat[,n]>=fcut
or
"down"
for the up-regulated genes where
fcmat[,n]<=-fcut< code="">.=-fcut<>
"output"
is not "x11"
)."x11"
(default), "png"
, "jpg"
, "bmp"
,
"pdf"
or "ps"
."path"
is not NULL
, a file with the
intersections in the Venn diagrams will be produced
and written in "path"
.pmat
.
The names of the vector must be the rownames of
pmat
.par
.which.plot
argument. If
output="x11"
, no output filenames are produced.require(VennDiagram)
p1 <- 0.01*matrix(runif(300),100,3)
p2 <- matrix(runif(300),100,3)
p <- rbind(p1,p2)
rownames(p) <- paste("gene",1:200,sep="_")
colnames(p) <- paste("method",1:3,sep="_")
venn.contents <- diagplot.venn(p)
Run the code above in your browser using DataLab