data(dt4rtn)
# just a few TFs for quick demonstration!
tfs4test<-c("PTTG1","E2F2","FOXM1","E2F3","RUNX2")
# create a new TNI object
rtni <- new("TNI", gexp=dt4rtn$gexp, transcriptionFactors=dt4rtn$tfs[tfs4test])
## Not run:
#
# # preprocessing
# rtni <- tni.preprocess(rtni,gexpIDs=dt4rtn$gexpIDs)
#
# # permutation analysis (infers the reference/relevance network)
# rtni<-tni.permutation(rtni)
#
# # dpi filter (infers the transcriptional network)
# rtni<-tni.dpi.filter(rtni)
#
# ## End(Not run)
Run the code above in your browser using DataLab