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)
#
# # check summary
# tni.get(rtni,what="summary")
#
# # get reference/relevance network
# refnet<-tni.get(rtni,what="refnet")
#
# # get transcriptional network
# tnet<-tni.get(rtni,what="tnet")
#
# # get status of the pipeline
# tni.get(rtni,what="status")
# ## End(Not run)
Run the code above in your browser using DataLab