### R code from vignette source 'BrainStars.Rnw'

###################################################
### code chunk number 1: BrainStars.Rnw:69-70
###################################################
library("BrainStars")


###################################################
### code chunk number 2: BrainStars.Rnw:75-76
###################################################
my.eset <- getBrainStars(query = "1439627_at", type = "expression")


###################################################
### code chunk number 3: BrainStars.Rnw:82-85
###################################################
ids <- c("1439627_at", "1439631_at", "1439633_at")
my.esets <- getBrainStars(query = ids, type = "expression")
my.esets


###################################################
### code chunk number 4: BrainStars.Rnw:89-90
###################################################
my.mat <- exprs(my.esets)


###################################################
### code chunk number 5: BrainStars.Rnw:95-96
###################################################
my.ann <- getBrainStars(query = "1439627_at", type = "probeset")


###################################################
### code chunk number 6: BrainStars.Rnw:102-106
###################################################
getBrainStarsFigure("1439627_at", "exprgraph",   "png")
getBrainStarsFigure("1439627_at", "exprmap",     "png")
getBrainStarsFigure("1439627_at", "switchgraph", "pdf")
getBrainStarsFigure("1439627_at", "switchhist",  "png")


###################################################
### code chunk number 7: BrainStars.Rnw:131-133
###################################################
recep.mat   <- getBrainStars(query = "receptor/10,5",  type = "search")
recep.count <- getBrainStars(query = "receptor/count", type = "search")


###################################################
### code chunk number 8: BrainStars.Rnw:142-143
###################################################
mk.genes.count <- getBrainStars(query = "high/LS/count", type = "marker")


###################################################
### code chunk number 9: BrainStars.Rnw:148-149
###################################################
ms.genes.list <- getBrainStars(query = "low/SCN/all", type = "multistate")


###################################################
### code chunk number 10: BrainStars.Rnw:153-154
###################################################
os.genes.count <- getBrainStars(query = "count", type = "onestate")


###################################################
### code chunk number 11: BrainStars.Rnw:159-162
###################################################
gfc.genes1.count <- getBrainStars(query = "tf//count",         type = "genefamily")
gfc.genes2.list  <- getBrainStars(query = "tf/terminal/all",   type = "genefamily")
gfc.genes3.count <- getBrainStars(query = "tf/terminal/count", type = "genefamily")


###################################################
### code chunk number 12: BrainStars.Rnw:167-168
###################################################
os.genes <- getBrainStars(query = "high/SCN/ME/all", type = "ntnh")