data(RmiR)
res1 <- read.mir(genes=gene1, mirna=mir1, annotation="hgug4112a.db")
res2 <- read.mir(genes=gene2, mirna=mir2, annotation="hgug4112a.db")
res3 <- read.mir(genes=gene3, mirna=mir3, annotation="hgug4112a.db")
res_tc <- RmiRtc(timeline=c("res1", "res2", "res3"),
timevalue=c(12, 48, 72))
res <- readRmiRtc(res_tc, correlation=-0.9, exprLev=1,
annotation="hgug4112a.db")
## List of genes with anti-correlated miRNAs:
res$reps
## Plot of the first gene of the list:
plotRmiRtc (res, gene_id=351, timeunit="Hours")
## Setting the position of the legend:
plotRmiRtc (res,gene_id=351, legend.x=50, legend.y=0, timeunit="Hours")
## Plot with RSVGTipsDevice:
plotRmiRtc (res,gene_id=351, legend.x=50, legend.y=0, timeunit="Hours",
svgTips=TRUE)
## Plot of a read.mir results:
plotRmiRtc (res1, svgname="gene1.svg", svgTips=TRUE)
Run the code above in your browser using DataLab