data(exampleProbeLevelSet)
fromThese<-sampleNames(exampleProbeLevelSet)
toThese<-sub(".cel","", sampleNames(exampleProbeLevelSet))
toThese<-sub("X","", toThese)
translationFile<-cbind(fromThese, toThese)
translationFile<-as.data.frame(translationFile)
translateSampleNames(exampleProbeLevelSet, translationFile, from="fromThese", to="toThese")
Run the code above in your browser using DataLab