`entrez.func.570` <-
function(probe){entrez <- eval(parse(text=paste("hgu133plus2.PR2EG$\"",probe,"\"",sep=""))); ifelse(is.null(entrez),NA,entrez)}