data(dt4rtn)
tfs4test<-c("PTTG1","E2F2","FOXM1","E2F3","RUNX2")
rtni <- new("TNI", gexp=dt4rtn$gexp, transcriptionFactors=dt4rtn$tfs[tfs4test])
## Not run:
#
# rtni <- tni.preprocess(rtni,gexpIDs=dt4rtn$gexpIDs)
# rtni<-tni.permutation(rtni)
# rtni<-tni.bootstrap(rtni)
# rtni<-tni.dpi.filter(rtni)
# rtna<-tni2tna.preprocess(rtni, phenotype=dt4rtn$pheno, hits=dt4rtn$hits, phenoIDs=dt4rtn$phenoIDs)
#
# #run overlap analysis pipeline
# rtna <- tna.overlap(rtna)
#
# #run shadow analysis pipeline
# rtna <- tna.shadow(rtna,stepFilter=FALSE)
#
# #get results
# tna.get(rtna,what="shadow")
#
# # run parallel version with SNOW package!
# library(snow)
# options(cluster=makeCluster(4, "SOCK"))
# rtna <- tna.shadow(rtna)
# stopCluster(getOption("cluster"))
# ## End(Not run)
Run the code above in your browser using DataLab