Nothing
### 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")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.