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)
#
# # linear version!
# rtni<-tni.permutation(rtni)
# rtni<-tni.bootstrap(rtni)
#
# # parallel version with SNOW package!
# library(snow)
# options(cluster=makeCluster(3, "SOCK"))
# rtni<-tni.permutation(rtni)
# rtni<-tni.bootstrap(rtni)
# stopCluster(getOption("cluster"))
# ## End(Not run)
Run the code above in your browser using DataLab