Skip to content

Instantly share code, notes, and snippets.

@bobthecat
Created June 4, 2012 03:47
Show Gist options
  • Save bobthecat/2866218 to your computer and use it in GitHub Desktop.
Save bobthecat/2866218 to your computer and use it in GitHub Desktop.
ppi
ppi <- get.ppiNCBI(head(glist, 20))
[1] "7 interactions found"
## Annotate the gene list with Mus musculus metadata
library(org.Mm.eg.db)
ppi$egSymbol <- mget(ppi$egID, envir=org.Mm.egSYMBOL, ifnotfound=NA)
ppi$intID <- mget(ppi$intSymbol, envir=org.Mm.egSYMBOL2EG, ifnotfound=NA)
ppi <- ppi[,c(3,2,1,4)]
ppi
egSymbol intSymbol egID intID
1 Ifi202b Pou5f1 26388 18999
2 Hes5 Jak2 15208 16452
3 Eya1 Polr2a 14048 20020
4 Eya1 Rbck1 14048 24105
5 Eya1 Sharpin 14048 106025
6 Cdk6 TGFBR1 12571 NA
7 Bcl11a Sirt1 14025 93759
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment