if (require(hgu95av2.db) & require(annaffy)) {
library(annaffy)
data(aafExpr)
class(exprs(aafExpr))
exprs(aafExpr)[1:4, 1:4]
#list possible values for the "using" argument
ls(pos=which(search()=="package:hgu95av2.db"))
convert <- aggregateExprs(exprs(aafExpr),"hgu95av2.db",FUN=mean,na.rm=TRUE)
convert[1:4,1:4]
}
Run the code above in your browser using DataLab