### R code from vignette source 'GEOsearch.Rnw'
### Encoding: UTF-8

###################################################
### code chunk number 1: GEOsearch.Rnw:33-36
###################################################
library(GEOsearch)
library(org.Hs.eg.db)
library(org.Mm.eg.db)


###################################################
### code chunk number 2: GEOsearch.Rnw:39-41
###################################################
Oct4alias <- TermAlias("Oct4 RNA-seq")
Oct4alias


###################################################
### code chunk number 3: GEOsearch.Rnw:50-52
###################################################
Oct4searchres <- GEOSearchTerm(Oct4alias)
head(Oct4searchres)


###################################################
### code chunk number 4: GEOsearch.Rnw:61-63
###################################################
Oct4keywordfreq <- KeyWordFreq(Oct4searchres)
head(Oct4keywordfreq)


###################################################
### code chunk number 5: GEOsearch.Rnw:72-73
###################################################
SampleDetail(c("GSE69322","GSE64008"))