## ----closeg, message = FALSE--------------------------------------------------
library("Biobase")
library("genefilter")
data(sample.ExpressionSet)
igenes <- c(300,333,355,419) ##the interesting genes
closeg <- genefinder(sample.ExpressionSet, igenes, 10, method="euc", scale="none")
names(closeg)

## ----gene-indexing------------------------------------------------------------
closeg$"31539_r_at"
Nms1 <- featureNames(sample.ExpressionSet)[closeg$"31539_r_at"$indices]
Nms1

## ----echo=FALSE---------------------------------------------------------------
sessionInfo()