## apply a densityEstimate test
data(DudleyPhenoM)
data(ScISIC)
DudleyPhenoL <- apply(DudleyPhenoM,2,function(x) names(which(x==1)))
NaCl <- DudleyPhenoL[["NaCl"]]
perm <- 20
NaClGraph <- graphTheory(genename=NaCl, interactome=ScISIC,
perm=perm)
## access results
slotNames(NaClGraph)
NaClGraph@Pvalue[1:5]
## use of the plot method
plot(NaClGraph)
Run the code above in your browser using DataLab