data(ScISI)
data(essglist)
essential <- names(essglist)
CoparamsESS <- new("CoHyperGParams",
geneIds=essential,
universeGeneIds=rownames(ScISI),
annotation="org.Sc.sgd.db",
categoryName="ScISI",
pvalueCutoff=0.01,
testDirection="over")
sign<- hyperGTest(CoparamsESS)
test05 <-complexStatus(data=sign, phenotype=essential,
interactome=ScISI, threshold=0.05)
Run the code above in your browser using DataLab