## ----eval=FALSE--------------------------------------------------------------- # # source("https://bioconductor.org/biocLite.R") # biocLite("IntramiRExploreR") # ## ----eval=TRUE---------------------------------------------------------------- library("IntramiRExploreR") ## ----eval=TRUE---------------------------------------------------------------- miR="dme-miR-12" a<-miRTargets_Stat(miR,method=c("Both"),Platform=c("Affy1"),Text=FALSE) a[1:4,1:5] ## ----eval=TRUE---------------------------------------------------------------- gene ="Ank2" a<-genes_Stat(gene,geneIDType="GeneSymbol", method=c("Both"),Platform=c("Affy1")) a[1:4,1:5] ## ----eval=TRUE---------------------------------------------------------------- miR=c("dme-miR-12","dme-miR-283") a<-Visualisation(miR,mRNA_type=c("GeneSymbol"),method=c("Both"),platform=c("Affy1"), visualisation=c("console"),thresh=10) a[1:10,1:5] ## ----eval=TRUE---------------------------------------------------------------- mRNA="Syb" a<-Gene_Visualisation(mRNA,mRNA_type=c("GeneSymbol"),method=c("Pearson"), platform=c("Affy1"),visualisation= "console") a[1:10,1:5] ## ----eval=FALSE--------------------------------------------------------------- # miR="dme-miR-12" # a<-Visualisation(miR,mRNA_type=c("GeneSymbol"),method=c("Both"),platform=c("Affy1"),thresh=100, # visualisation="console") # genes<-a$Target_GeneSymbol # GetGOS_ALL(genes,GO=c("topGO"),term=c("GO_BP"),path="C://",filename="test")