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

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


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


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


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


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