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